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Avant-propos 


Vous trouverez dans ce livre plus de 100 programmes (essentiellement des 


jeux). rédigés en Basie AMSTRAD. La plupart de ces programmes seront 
d' ailléurs bbeable sans grande modification sur d'autres ordinateurs 
utilisant un Basic Mic root 

Les programmes proposés sont très courts. et l'ordre dans lequel ils sont 
prése ntés n'est bien évidemment pas arbitraire : il s'agit d'initier le lecteur. 
à travers la réalisation et utilisation de programmes de jeux de bonne 
qualité. à la connaissance et à la maîtrise progressive de cet outil extraor- 
dinaire qu'est un ordinateur individuel. 

La brièveté des programmes proposés permettra de les taper facilement. 
sans risque d'erreur. Vous pourrez bien sûr les utiliser comme base pour 
la réalisation de jeux plus performants. 

Les programmes sont abondamment commentés pour vous aider à 
comprendre leur fonctionnement. et les pages de présentation vous per- 
mettront de retrouver facilement les caractéristiques propres des instrue- 
tions Basie qu'ils utilisent. 

Le niveau 5 donne une idée sur Futilisation de certaines techniques un peu 
spécifiques. Ces techniques pourront être reprises avec profit pour amélio- 
rer les programmes précédents. 


Vous trouverez. à la fin de chaque texte de présentation. quelques sugges- 
tions pour des améliorations possibles. ou des modifications. qui pour- 
raient rendre le Je u proposé plus attravant. plus performant ou plus 
complet. 


Organisation de 
l'ouvrage 


Les jeux sont classés par ordre de difficulté croissante. suivant 5 niveaux : 


e Le niveau 1 permet l'étude des instructions élémentaires du langage 
Basic : LET (opuonnel ici}. PRINT, INPUT, IF. THEN, FOR..NEXT, 
GOTO. GOSUB, ON...GOTO, ON... GOSUB, MHILE.. WEND,. 


e Au niveau 2, on utilisera les instructions de confection et de manipu- 
lation des éléments d’un tableau. et de recherche d'un élément dans 


une chaîne : DIM, R(D), MID$, READ, DATA. 


e Au niveau 3, on utilise la panoplie complète des instructions de trai- 


tement des chaînes de caractères : MID$, RIGHTS, LEFTS. 


e Le niveau 4 fait appel à une instruction très particulière qui facilite la 
réalisation de jeux interactifs : INKEY$ et nous fait découvrir l'inter- 
action du mode texte et du mode graphique avec FAG. 


e Enfin. le niveau 5 nous fait découvrir des instructions plus spécifi- 
ques : interruptions. lecture d'écran, générations de caractères. 


Chaque jeu est présenté d’une façon très systématique, par une courte 
description, suivie de l'étude détaillée de chacune des lignes importantes 
du programme. Après quoi les indications nécessaires au 1 bon fonctionne- 
ment du jeu sont données, ainsi que quelques éléments pouvant conduire 
à des extensions ou des améliorations du jeu proposé. 


Le programme. écrit en Basic AMSTRAD. est ensuite reproduit. ainst qu'un 
exemple d'exécution. Les listings ont été obtenus directement d'apres les 
originaux de l’auteur, sur une imprimante matricielle. ce qui devrait ga- 
rantir contre tout risque de disfonctionnement. Les minuscules ne sont pas 
utilisées. Par contre, rentrez les programmes en minuscules. Au listage les 

mots clés, et eux-seuls, s’impriment en majuscules. Les erreurs de frappe 
sont ainsi aisément détectées. 


Avant de relancer tout programme. assurez-vous que vous avez réimitialisé 
la machine à l’aide de la suite d'instructions : MODE 1: INK 0.1: INK 
1,24: INK 2,20: INK 3.6. 


Attention, sur l'écran de l’Amstrad. les zéros apparaissent carrés et les “O0? 
apparaissent ronds contrairement à ce qui ressort sur nos listings. 


Niveau 1 


Nom du programme 


Thèmes et particularités 





Le nombre mystérieux 


Cube 


Chaud. froid 


Les allumettes 


Allumettes à plusieurs 


Calendrier perpétuel 


Bataille navale 
Golf 
Solfège 


Le Jeu du 21 


Pair - Impair 
Devine un chiffre 
Le jeu de Wvtthof 


Rebonds 
Jackpot 

Roulette 
Couloirs 


Echiquier 


Le jeu de la fève 


Jeu de loie aléatoire 


Jeu de déduction. pour un joueur. Plusieurs 
NIVEAUX. 

Jeu de dessin : perspective sur un écran. 
Logique et hasard. pour un joueur. Plu- 
SIOUTS NIVEAUX. 

Jeu de réflexion. contre l'ordinateur. 

Jeu de réflexion et de stratégie. pour plu- 
SIQUTS JOUCUTS. 

Confection d'un calendrier. mois par mois. 
Un seul navire à trouver. mais quelques 
particularités. 

Un parcours de 18 trous. pour un seul 
joueur. 

Apprenez le solfège à laide de votre ordi- 
nateur. 

Jeu de hasard. ordinateur tent la banque 


Un jeu de casino en trois temps (un ou plu- 
sieurs Joueurs. 


Un jeu tres facile. pour un où plusieurs 
joueurs. 

Un jeu de réflexion assez simple. pour deux 
joueurs. 

Un jeu d'adresse très visuel. pour un joueur. 
Jeu de hasard. pour un joueur. 

Une simulation élégante du jeu trés connu 
Un jeu de logique. à découvrir. 

Une base graphique pour vos propres créa- 
tons. 

Un jeu de réflexion. pour deux joueurs. 
Un très vieux Jeu. revu et corrigé par lor- 
dinateur. deux joueurs. 
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Instructions 
élémentaires 





Nous ne retiendrons ici que les instructions fondamentales. ou instructions 
de programmation : beaucoup d’autres commandes. ou fonctions parti- 
culières. seront utilisées à l'occasion. par exemple : 


RND pour obtenir un nombre aléatoire entre 0 et 1. 
— INT pour prendre la partie entière d'un résultat. 
— REM pour placer un commentaire. 
— END pour terminer un programme. 
— elc. 


Les instructions fondamentales de la programmation, utilisées dès le 
niveau 1, et présentes dans pratiquement tous les programmes sont : 


LET (optionnelle) : PRINT : INPUT ; GOTO 5: IFC THEN; 
FOR .… NEXT : GOSUB … RETURN. 


soit seulement sept instructions de base (et deux instructions dérivées) que 
nous allons maintenant examiner plus en détail. 


L'INSTRUCTION LET OÙ INSTRUCTION D'AFFECTATION 


C'est l'instruction par excellence des langages de programmation évoluée. 
puisque son rôle essentiel est de permettre. pour le programmeur. une 
gestion transparente de la mémoire. Cela signifie. en pratique. que pour 
ranger une quantité en mémoire, par exemple 12. il n'est pas nécessaire 
de savoir dans quelle case de la mémoire on va la déposer : il suffit de lui 
affecter un nom autorisé. et c'est par ce nom que la quantité sera par la 
suite retrouvée et manipulée. 


— Si la quantité est numérique, le nom sera une simple lettre de l’al- 
phabet. ou un ensemble de plusieurs chiffres ou lettres. commençant 
obligatoirement par une lettre. 


— Si la quantité est alphanumérique, la même règle s'applique pour le 
nom. qui devra cependant être suivi du symbole $. et la variable devra 
être écrite entre guillemets. 


Exemple : 

LET A1 = 12: la variable numérique A1 prend la valeur 12 

LET NOM $ = “RENOIR” ; la variable alphanumérique NOMS prend la 
valeur RENOIR. 


Sur AMSTRAD. comme dans la plupart des Basic. le LET est devenu 


optionnel, aucune ambiguïté n'étant possible. on écrira donc : À = 12: 


NOMÉ = “TOTO” 


L'INSTRUCTION PRINT OU INSTRUCTION DE SORTIE (ECRAN) 





C'est une instruction de dialogue, qui permet à la machine d'afficher sur 
l'écran un texte. le résultat d'un caleul. ou une variable. C'est le seul moyen 
que possède l'ordinateur individuel pour faire connaître ses résultats. Ain- 
si. PRINT A1 provoque l'affichage de 12 {si l'on a fait auparavant AT = 
12). PRINT A$ provoque l'affichage de BONJOUR {si l'on a fait A$ = 
“BONJOUR” ). Utilisé après un effacement d'écran. le PRINT provoque 


l'affichage sur la 1" ligne. en haut. à gauche. 


Un certain nombre de paramètres peuvent être utilisés pour obtenir sur 


l'écran un affichage convenable : 


— PRINT TABI(N) provoque sur la ligne d'impression courante un affi- 
chage commençant à la énième colonne à partir de la gauche (1 < N < 
40 en mode 1). 


— Un; (point- virgule) en fin de PRINT permet soit d'enchaîner une autre 
impression sans répéter l'instruction PRINT. soit d'indiquer que la pro- 
chaine impression sera. en l'absence d'indication contraire. effectuée 
exactement à la suite de l'impression précédente. 


— La , (virgule) provoque une tabulation horizontale automatique pré- 
définie modifiée par la fonction ZONE. 


Lors de la frappe. l'instruction PRINT pourra être abrégée en tapant ? 
(point d'interrogation). Lors d'une impression. tout nombre est précédé 
d'un signe : mais le signe positif n'est pas affiché. un espace précédera 
donc automatiquement l'impression de tout résultat positif. 


L'INSTRUCTION LOCATE 

AMSTRAD dispose d’une instruction particulière. d'un emploi très souple. 
qui permet de positionner le curseur sur l'écran, en vue de la prochaine 
écriture. Il s’agit de l'instruction LOCATE X. Y. X correspond à une 


tabulation horizontale (entre 1 et 40) et Y à une tabulation verticale (entre 
let 25) en mode texte. 


Ainsi. pour écrire le mot BONJOUR à la 5° colonne de la 8° ligne. on écrira : 


LOCATE 5.8 : PRINT “BONJOUR” 
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L'INSTRUCTION INPUT OU INSTRUCTION D'ENTREE (CLAVIER) 








Cette instruction. qui provoque un arrêt et une attente de l'appareil. per- 
mettra d'entrer un nombre, ou un texte, qui sera affecté à la variable 
suivant l'ordre INPUT. Ceci est fait en mode conversationnel, c’est-à- 
dire au fur et à mesure des besoins : en effet, lorsque AMSTRAD ren- 
contre une instruction INPUT. il s'arrête et vous rend la main : on peut 
alors lui entrer une information de nature convenable (nombre ou texte). 
et lui signaler que cette entrée est terminée à l'aide de la touche ENTER, 
ce qui lui rendra la main. 


Si l'information entrée n'est pas de nature convenable {vous tapez. par 
exemple. un texte sur un INPUT X. qui attend un nombre). le message 


REDO FROM START est affiché. et l'appareil se remet en attente. 


Iest possible. comme pour le PRINT. d'afficher des messages avant l'en- 
trée de la variable. et d'utiliser instruction LOCATE. 


On pourra. par exemple. écrire : 


INPUT VOTRE NOM. SIL VOUS PLAIT" : A$ 


LES FENETRES D'ECRAN 





L'écran peut être divisé en huit fenêtres. dont chacune a sa couleur d'encre 
et sa position de curseur, Par défaut. les 8 fenêtres sont rigoureusement 
superposées. L'ordre WINDOW permet de les limiter à une partie de | écran. 
Ainsi WINDONW # 1. 20. 25. 12. 14 ouvre une fenêtre d'écran entre Îles 
colonnes 20 et 25 et les lignes 12 et 1+. 


Les instructions PRINT. INPUT et LOCATE. pour être exécutées dans 
une fenêtre particulière. doivent utiliser son numéro. 


Ainsi PRINT # 1. “TOTOT imprimera sur la première fenêtre, aux coor- 
données éventuellement. définies par un ordre du type LOCATE # T. À. 
Y. En présence d'une fenêtre. X et Y sont comptés par rapport au Coin 
supérieur gauche de celle-ci. indépendamment de la position sur l'écran 
habituel 40 X 25 lignes. 


L'INSTRUCTION GOTO OU INSTRUCTION DE RENVOI 
INCONDITIONNEL 





Une des particularités du langage Basic. qui le rend facilement accessible. 
est que chaque ligne de programme doit être précédée d'un numéro, ces 
lunes étant ensuite exécutées par l'ordinateur individuel en séquences. 
dans le sens des numéros croissants. Pour diverses raisons. il pourra être 
nécessaire au cours du déroulement d'un programme. de ne pas suivre cet 
ordre séquentiel très rigide : on utilisera alors l'instruction GOTO, qui 
permet de détourner le fonctionnement du programme de son cours nor- 


mal quitte d'ailleurs à le reprendre ensuite par un autre GOTO. Le renvoi 
doit. par ailleurs. impérativement se faire Sur un numéro de ligne existant 
dans le programme {GOTO 20. par exemple. 


Pour donner un peu de souplesse à cette instruction de renvor. 1lexiste une 
instruction très puissante, qui permet de renvoyer à n'importe quel nu- 
méro de ligne. selon la valeur d'une variable numérique : €'est Finstruc- 
tion ON GOTOL 5: on écrira par exemple : 


ON X COTO 100. 200, 300 et le renvoi sera fait à la hyne 100 
Si NX vaut 1. à la ligne 200 si X vaut 2. 61300 SX vaut 3. 


L'INSTRUCTION IF THEN OU INSTRUCTION DE TEST 





On peut l'utiliser de deux façons : d'abord.en rupture de séquence condi- 
tionnelle, sous la forme : 


IF condition = vraie THEN numéro de ligne. 





C'est l'usage le plus courant de ce test. qui permet . renVOver à une autre 
partie de programme, si par exemple X = O0. ou si A = B. etc. Les opéra- 
teurs logiques NOT, OR, XOR ou AND peuvent . ailleurs être utilisés 


dans l'écriture de la condition. 
On pourra aussi utiliser le test sous la forme : 
IF condition THEN instruction : 


tm tn TP mm 


l'instruction présentée à la suite de THEN peut être une affectation A°= 
12. une impression PRINT A. une entrée INPUT B $. où même un autre 
test IF 2 THIEN 1, 


On peut par exemple écrire : 


AZ S3THENIEB <T THEN PRINT A + B 


L'INSTRUCTION FOR..NEXT OU INSTRUCTION DE BOUCLES 





On est très souvent conduit. en programmation. à vouloir exécuter un 
nombre entier de fois une certaine suite d'instructions par exemple. faire 
avancer un mobile de la case 6 à la case 20. ete. Plutôt que d'utiliser un 
test et un renvor 1! sera préférable de faire appe à une boucle, la variable 
de boucle prenant ses valeurs dans les entiers ou les décimaux. et le pas 
de cette variable (c'est-à-dire la quantité dont elle augmente où diminue 
à chaque passage) pouvant aussi prendre ses valeurs dans les entiers ou 
les décimaux. 

Ainsi. si l'on écrit : 


FOR I = 


qi: D Gp 
NEXT ro FO 20 STEI 


Instructions 
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Les instructions contenues dans la boucle seront exécutées pour F= 0. 
pour D = 2. ...et ceci jusqu'à = 20. soit TT fois. La variable peut être 
utilisée pour faire un caleul dans la boucle. mais ne devra pas être modifiée 
dans la boucle, On peut. bien sûr. sortir de la boucle, avant = 20. par un 
test portant une quantité quelconque. 


Si le pas de la boucle STEP n'est pas précisé. 1lsera automatiquement 
pris égal à 1. 


ILest possible d'emboîter plusieurs boucles de noms différents et d'omettre 


Findication de la variable dans le NEXT, 


L'INSTRUCTION GOSUB OÙ INSTRUCTION D'APPEL DE SOUS- 
PROGRAMME 





I 0FSqu_une méme suite d'instructions doit être exécutée plusie urs fois. et 
appe dée à partir de plusieurs endroits du programme. on évitera de la 
réécrire plusieurs fois. On la rédige une fois pour toutes. eton la place en 
dehors du programme proprement dit (en lui donnant. par exemple. un 
numéro de ligne supérieur au numéro de la dernière ligne du programme). 
Indépe ndamment des difficultés que Fon pourra rencontrer au niveau du 
nom des variables. lorsque l'on sera désireux d'utiliser cette séquence. il 
suffira de l'appeler par Finstruction GOSUB numéro de ligne. Le pro- 
gramme ra des lors "faire un détour” dans la partie du programme appelé. 
mais il ne pourra revenir et poursuivre son déroulement normal que srl 
rencontre dans le programme appelé une instruction RETURN, où ins- 
truction de retour. 


Voici le schéma théorique de fonctionnement: 


Programme principal 






10 
20 départ 
vers 1000 


110 GOSUB 1000 
LR 1200 RETURN 


retour après 110 
! départ vers 1000 De 
230 COSUB 1000 
D 1200 RETURN 
retour après 2:30 


600 
Fin du programme principal 
1000 


! , . 

' Le sous-programme n'est écrit 
1200 RETURN qu'une fois, mais appelé aussi 
Sous-programme | souvent que l’on veut. 


Un sous-programme pourra lui-même éventuellement appeler un autre 


sous-programme. et ainsi de suite. 


On peut aussi appeler un sous-programme de façon conditionnelle. en 
utilisant l'instruction ON: GOSUB 1. 


Par exemple ON X GOSUB 1000. 2000. 3000 permettra d'exécuter le 


sous-programme placé en 1000 si X = I. en 2000 si X = 2. en 3000 si X 


L'INSTRUCTION WHILE/W END 





Lorsqu'une suite d'instructions doit être exécutée tant qu'une certaine 
condition est vérifiée. 1l suffit de la mettre au milieu d'une boucle WHILE/ 
WEND. Attention, avant de commencer toute boucle WHILE/WEND, 
il est prudent d'initialiser la (ou les) variable(s) utilisée(s) pour le 
test de condition, 


EXEMPLE : 19 WHILETE < 200 
20 TE =TE + 1: PRINTTE 
30 WEND 


La variable TE est augmentée d'une unité et imprimée tant qu'elle reste 
inférieure à 200. 


Il est possible d'emboîter plusieurs boucles WHILE/WEND entre elles 
programme HORLOGE 2) ce qui permet une grande élégance dans Fécri- 
ture des programmes. 
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Le nombre mystérieux 





REFERENCES : 

Difficulté de programmation : facile. 

Catégorie de jeu : jeu de déduction pour un joueur. 
Difficulté du jeu : facile. 


LE JEU : 

On demande à l'ordinateur de fabriquer un nombre de n chiffres avec n 
compris entre Let 7 

On devra ensuite essaver de le découvrir. avec le moins d'essais possible. 


en recevant les seuls renseignements FROP GRAND où FROP PETTF. 


LE PROGRANMLME : 

La ligne 60 permet de fabriquer le nombre à deviner. 

Les entrées sont faites par les lignes 80 et 90, 

La ligne 100 teste si le résultat est exact. 

La ligne 110 signale un essai trop petit. et la ligne 120 un essar trop grand. 
Le compteur d'essais est en ligne 130. 

Les liunes 160 à 180 S'occupent de l'affichage du résultat. et de la gestion 
de la partie suivante. 


POUR JOUER : 

On lancera le programme par RUN. 

On obtient un prenner affichage NOMBRE DE CHIFFRES A DEVINER 
auquelon répond par un entier entre Let 7. suivi de ENTER. 

Onobtient alors l'affichage ESSATN' TE suivi de la question VOTRE NOM- 
BRE:. 

Ou entre un nombre. et Fon presse ENTER. 

On obtient alors une réponse FROP PETTE. où FROP GRAND. ou encore. 
Si l'on a trouvé juste. un affichage de VOUS AVEZ TROUVE.. EN... 
ESSATS. Si le résultat n'est pas exact. on revient à ESSAEN" 2 et VOTRE 
NOMBRE. 

En fin de partie. on obtient la question AUTRE PARTIE (O/N) : on ré- 
pond O ou o pour faire une autre partie (suivi de ENTER). 

On peut arrêter à tout moment en tapant deux fois de suite sur la touche 
ESC. 


EXTENSIONS POSSIBLES : 

On pourra imaginer de faire deviner au joueur autre chose qu'un chiffre 
(par exemple. un mot. en utilisant l'ordre alphabétique. ou encore autre 
chose..….). 


10 REM LE NOMBRE MYSTERIEUX 

AUDES 

30 INPUT "NOMBRE DE CHIFFRES À DEVINER: 
“si N 

40 IF N27 THEN RUN 

SO IF N£=O THEN RUN 

680 X=INT CEND C1) KLOTN+1) 

70 J=i 

80 FRINT:FRINT'ESSAI NUMERO "39 


90 INFUT'VOTRE NOMBRE :":M 

100 IF M=X THEN 160 

110 IF MEX THEN FRINT "TROP FETIT" 
120 IF MEX THEN FRINT "TROF GRAND‘ 
130 Jed+i 

140 FRINT 

150 GOTO 80 

160 FRINT:FRINT "VOUS AVEZ TROUVE EN “39 
;" ESSAIS" 

170 INPUT "UNE AUTRE FARTIE (O/N':R& 
180 IF R$="0" OR Ré="o" THEN RUN 
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Cube 





REFERENCES : 

Difficulté de programmation : aucune. 
Catégorie de Jeu : dessin. 

Diffie ulté du jeu : aucune. 


LE JEU : 

Le programme proposé se contente de réaliser à l'aide d'instructions PRINT 
une vue d'un cube en pe rspective cavalière. 

Il pourrait être par exemple 1 INCOTPOrÉ à un jeu basé sur les capacités de 
reconnaissance des formes géométriques élémentaires 


LE PROGRAMME : 

Le dessin du cube est réalisé par l'impression de points. en utilisant deux 
boucles : la boucle 130-120. et la boucle 1 ‘130-180. 

Le nom de l'objet représenté est affiché en ligne 200 ‘ici : CUBE 


POUR JOUER : 
I suffit de lancer l'exécution par RUX. et de regarder. On fera ESC deux 
fois pour reprendre la main. 


EXTENSIONS POSSIBLES : 

La haute résolution permettra d'avoir un tracé plus pré c1s. 

On pourra imaginer un Jeu utilisant des parallélépipèdes rectangles de 
différentes taille +. avec affichage par exemple des 3 côtés. et il faudrait 
trouver leur volume. etc. 


10 REM CUBE 
20 CLS 

30 FOR I=i TO ii 

40 LOCATE 7+1,1:PRINT "." 

50 LOCATE 1,8:PRINT "." 

60 LOCATE 8+1,12:PRINT "." 

70 LOCATE 1+1,19:PRINT "." 

80 LOCATE 1,8+I:FPRINT "," 

90 LOCATE 12,7+I:FRINT "." 

100 LOCATE 8,1+1:PRINT "." 

110 LOCATE 19,1I:FRINT "." 

120 NEXT 1 

130 FOR I=1 TO 6 

140 LOCATE 1+1,8-I:PRINT "." 

150 LOCATE 12+1,8-I:PRINT "." 

160 LOCATE 1+1,19-I:PRINT "." 

170 LOCATE 12+1,19-I: PRINT "." 

180 NEXT I 

190 LOCATE 26,19:PRINT CHR$ (150) : STRINGS 
(4,154) ; CHR$ (156) 

200 LOCATE 26,20:PRINT CHR$ (149) ; "CUBE"; 
CHRS (149) 

210 LOCATE 26,21:PRINT CHR$ (147) ; STRINGS 
(4,154) ; CHR$ (153 

220 GOTO 220 
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Chaud, froid 





REFERENCES : 

Difficulté de programmation : movenne. 
Catégorie de Jeu : solitaire. 

Difficulté du jeu : movenne. 


LE JEU : 

Un des plus vieux Jeux du monde. toujours aussi pratiqué. mais cette fois. 
c'est l'ordinateur qui vous sert de partenaire : il va en effet cacher un objet 
à un certain emplacement d'une grille dont vous aurez vous-même choisi 
les dimensions. Pour le trouver. il ne vous donnera que que ue indica- 
tions sous la forme BRULANT. ou COMPLETEMENT GELE. 

Vous devez réussir à découvrir Fobjet caché. avec le moins d'essais pos- 
sible votre score sera affiché en fin de partie). 


LE PROGRAMME : 

Les lignes 40 6150 définissent la position de objet. 

La ligne 100 calcule la distance par rapport aux deux coordonnées que 
vous avez entrées aux lignes 70 et 80. 

La higne 110 regarde si vous avez gagné. 

Les lignes 130-140 normalisent la distance {qui doit avoir un sens. quelles 
que soient les dimensions de la grille initiale). 

La ligne 150 effectue le départ. SIEv a heu. vers Fun des sous-programmes 
d'affichage. 


POUR JOUER : 

On lance le programme par Fordre RUX. puis on introduit les dimensions 
de la grille carrée et lon frappe ENTER. 

Dés l'affichage suivant DONNEZ XL on entre la coordonnée X supposée. 
suivie de ENTER. 

On obuent ensuite l'affichage DONNEZ Yet lon entre Y suivi de ENTER. 
On obuent en réponse un texte. qui est variable selon que l'on sera plus 
ou moins loin de Fobjet cherché {cela va de COMPLETEMENT GELE à 
BRULANT. Lorsque l'on a trouvé. on obtient l'affichage du nombre d’es- 
sais effectués. 

Pour sortir du programme avant la fin de la partie. il suffit de taper ESC 
deux fois de suite. 


EXTENSIONS POSSIBLES : 

Si lon dispose de la couleur. 1l sera intéressant de trouver un moyen plus 
visuel pour svmboliser la distance. par exemple des pavés allant du rouge 
au bleu. aux e mplac Cents ESSAYÉS. 

On peut aussi travailler dans un espace à trois dimensions. cacher plu- 
sieurs objets. ete. 


10 REM CHAUD FROTD 

20 CLS 

30 INFUT "DIMENSION DE LA GRILLE: 
40 X= INT CRNDXD+1) 

DO Vi INT CKNDXD+1) 

60 CLS 

7Q INFUT "DONNEZ X: "sA 

80 INFUT "DONNEZ Ys "SE 

PQ SxS+l 

LOO TEAERS (X-—A) +ARS (Y-EH) 

110 IF T=0O THEN 280 

LEO FRINTSFRINT'VQUS ETES "; 
120 N&INT(SOR (D) /T)+1 

140 IF ONSS THEN NaS 


180 IF TéeSOR(D) THEN ON N GOTO 180,200, 


220,240, 260 

160 FRINT'COMPLETEMENT GELE. " 
170 GOTO 70 

180 PRINT'A PEINE TIEDE." 

190 GOTO 70 

200 FRINT'TIEDE, 

210 GOTO 70 

220 FKRINT'!'CHAUD, " 

250 GOTO 70 

240 FRINT'TRES CHAUD." 

250 GOTO 70 

260 PRINT"BRULANT" 

270 GOTO 70 

#80 CLS:EBORDER %,4 

290 LOCATE 10,12:FPRINT "TROUVE EN 


400 FOR Tæl TQ SOOOSNEXT T 
310 EORDER 1,1 





RE D 


23 


24 


Les allumettes 





REFERENCES : 
Difficulté de programmation : facile. 
Catégorie de jeu : contre AMSTRAD. 


Difficulté du jeu : moyenne. 


LE JEU : 

Le joueur devra en début de partie choisir une certaine quantité d'allu- 
mettes. ainsi que la prise maximum autorisée. I décide ensuite S'il com- 
mence., où s'il laisse commencer AMSTRAD. Chacun prend à son tour 
autant d'allumettes qu'il le désire. dans la limite du nombre maximum 
autorisé. 

Celui qui prend la dernière allumette est considéré comme perdant. 


LE PROGRAMME : 

Le jeu du joueur commence en ligne 70. 

Celui d'AMSTRAD commence en ligne 110. 

La ligne 80 contrôle la légalité du coup du joueur. 

La ligne 90 gère le changement de joueur. 

Le coup d'AMSTRAD est caleulé dans une boucle non formelle, de la ligne 
120 à la ligne 150. 

Le résultat est affiché par la ligne 1020. 

Si la partie est terminée. la ligne 1030 le détecte et envoie en ligne 2000. 
pour le message de fin. 


POUR JOUER : 

On commence l'exécution par RUN. et. à l'affichage du message NOMBRE 
TOTAL. on entre le nombre d’allumettes. suivi de ENTER. Puis on entre 
la prise maximale autorisée, suivie de ENTER. Si le joueur veut commen- 
cer. 1] frappe ensuite 9 : sinon il frappe 1. puis ENTER. 

Après chaque coup. le nombre d’allumettes restantes est affiché, et AMS- 
TRAD affiche VOUS RETIREZ lorsque c'est au joueur de prendre. 


Celui qui prend la dernière allumette a perdu. 


EXTENSIONS POSSIBLES : 

On pourra bien sûr envisager un affichage graphique couleur plus spec- 
taculaire, imagine r de laisser le hasard choisir le nombre d’allumettes et 
la prise maximum. ete. 


10 REM LES ALLUMETTES 

20 CLS 

50 INFUT "NOMBRE TOTAL :'"3N 

40 INPUT "PRISE MAXIMUM ss 

30 INFUT "QUI COMMENCE (VOUS:0 / MOI:1) 
s'"sD 

60 IF Dxl THEN 110 

70 INPUT "VOUS RETIREZ :'"3F 

80 IF F£RINT(F) OR F£1 OR FN OK FSI THE 
N 70 

90 Dxl 

100 GOTO 1000 

110 Sæ=T+D 

120 Te (N-56) / (I+D) 

130 IF T&INT(T) THEN 200 

140 SxSD 

150 GOTO 120 

200 F#AES (S-D) 

210 IF F0 THEN FD 

220 Dx0Q 

1000 FRINT F 

1010 NeN--F 

1020 FRINT "IL RESTE !"3iN 

1030 IF NeO THEN 2000 

1040 GOTQ 60 

2000 CLS 

2010 IF Del THEN FRINT "J'AI GAGNE'"':SOUN 
D 1,476: SOUND 1,426:SOUND 1,279 

2020 IF D£s1 THEN FRINT "RKAVO’':SOUND 1, 
236,4: SOUND 1,256,4,0:SOUND 1,256, 4 
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Allumettes à plusieurs 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : logique ‘plusieurs joueurs). 
Difficulté du jeu : assez difficile. 


LE JEU : 

Dans ce jeu pour plusieurs joueurs. le meneur de jeu devra. en début de 
partie, choisir un nombre d'allumettes. et indiquer à votre AMSTRAD le 
nombre de Joueurs. 

A chaque coup. le joueur qui a le trait est autorisé à retirer du tas d'allu- 
mettes restantes Jusqu'au double de ce que vient de retirer le précédent 
joueur : celui qui reure la dernière allumette à gagné (ou perdu. si Fon 
modifie légérement les règles. 


LE PROGRAMME : 

La ligne 20 permet de travailler sur des entiers en provoquant l'arrondi 
des valeurs. 

Les lignes 40 à 60 permettent les différentes entrées. 

Les lignes 100 à 120 réalisent les impressions. 

La ligne 140 contrôle le coup de chaque joueur (par rapport au coup 
précédent . 

La ligne 200 gère les tours ‘remise à 1 du numéro du joueur. 

La ligne 180 réalise le test de fin. et la ligne 230 affiche le numéro du 
joueur gagnant avec la régle prévue imitialement. 


POUR JOUER : 

Après avoir lancé le programme par RUN. on entre le nombre initial d'al- 
lumettes. suivi de ENTER. puis le nombre de joueurs (et ENTER. 

Le premier joue ne ne pourra € nlever se allumette. le deuxième pourra 
en enlever Lou 2 : le suivant 1.2 ou 1.2. 3 ou 4 selon le coup précédent. 
et ainsi de suite : Le retrait maximum autorisé est à chaque fois affiché par 
AMSTRAD. 

Lorsque la dernière allumette a été prise. on obtient l'affichage LE 


JOUEUR... CAGE. et la partie est terminée. 


EXTENSIONS POSSIBLES : 

On peut convenir que celui qui prend la dernière allumette est éliminé du 
je u. et recommencer la partie entre les joueurs restants qui seront ainsi 
éliminés les uns aprè s les autres 

On peut aussi imaginer une re prése ntation graphique des tas d'allumettes. 
tirer au hasard le nombre à enlever en début de partie. etc. 


10 REM allumettes a plusieurs 
20 DEFINT F,J,KE,N 
30 CLS 


40 INFUT 


90 FRINT 


60 INFUT 


70 Fæelskéels INE 1,0 
80 CLS 

90 INF O,E. 

100 FRINT TAH(12) "TOUR DU JOUEUR'"' SE: FRIN 


. 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
ART) 


GNE., 


"NOMBRE D°ALLUMETTES:"3N 


"NOMBRE DE JQUEURS os"; 


PRINT "TOTAL RESTANT UN 
FRINT "MAXIMUM A ENLEVER :"3F 


INFUT'VOTRE CQOUF 
IF C<ézO OK CF THEN 
NeN-C 


LPS 0 


1:50 


IF NEO THEN NeN+C: GOTO 150 


FæeC+C 

IF ONeO THEN 220 
Kiss de 1 

IF EeJ THEN kxl 
GOTO 80 

CLS 

LOCATE 12, 128: FRINT 


"LE JQUEUR'"S ES "GA 
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Calendrier perpétuel 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de Jeu : gadget publicitaire. 
Difficulté du jeu : aucune. 


C e programme vous permettra de confectionner tous les ans votre calen- 
drier : vous pourrez ainsi vous en servir pour envoyer à vos amis un calen- 
drier di mois de leur naissance. ou pour leur souhaiter une bonne fête. 
ete. 


LE PROGRAMME : 

Les lignes 30 et 50 vous permettront d'entrer l'année et le mois. 

Les lignes 60. 70 et 80 calculent le numéro du premier jour du mois. 

La ligne 90 calcule le nombre de jours du mois (il n’est pas tenu compte 
ici des 29 février. pour simplifier). 

La boucle A (160-190! réalise impression du calendrier proprement dit. 
La ligne 140. à l aide de l'ordre ZONE. permet d' espacer de 5 blancs les 
éléments de liste séparés par une virgule. 


La ligne 200 évite l'apparition du mot READY. 


POUR JOI ER : 

Après avoir lancé le programme par l'instruction RUN. on devra introduire 
l'année. sous la forme. par exe mple 1985. suivie de ENTER. 

On obtient alors la question MOTS. à laquelle il convient de répondre par 
le numéro du mois. suivant ordre usuel (4 pour JANVIER. 2 pour FE- 
VRIER. ete... 


On fait ensuite ENTER. et le calendrier est alors affiché sur l'écran. 


EXTENSIONS POSSIBLES : 

On pourra sans difficulté prévoir l'affichage des 29 février. prévoir une 
option permettant l'affichage pour une année complète, prévoir Fintro- 
duction du nom des mois en clair. ete 


10 REM CALENDRIER FERPFETUEL 

20 CLS 

30 INFUT "FOUR QUELLE ANNEE "14 

40 FKINT 

50 INFUT "FOUR QUEL MOIS sue M 

80 JeINT(E6S, 2EX (A+ CMEZ) ) ) +1 

70 JeJ+INT(EO, 6X (M+1-- (METZ) X 12) )-INTCCINT 
(CA+(MEH))/100)-7) X0, 75) 

80 JzJ-7XINT(J/7) 

DO MaTi+(Mz4 OK Mzé OK Mz9 OK Mr l1) + (M2 
)XE 

100 FRINT:FRINT:FRINT 

110 FEN *# 

120 FRINT "DIM LUN MAR MER JEU VEN 
SAM" 

150 PRINT 

140 ZONE S:PEN € 

150 LOCATE 5xJ+1,10 

160 FOR A=1i TO M 

170 FKINT 4, 

180 [IF J+A-izo THEN FKRINT:FRINTs Ja 
190 NEXT A 

200 GOTOQO 200 
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Bataille navale 





REFERENCES : 
Difficulté de programmation : facile. 
Catégorie de Jeu : réflexion. 


Difficulté du jeu : facile. 
LE JEU : 


Une bataille navale à priori assez simple. avec un seul navire caché au 
hasard dans une grille de 10 cases sur 10 cases. 

A chaque coup. on devra tirer en donnant les coordonnées FH {horizontale 
et V (verticale) de la case visée. et AMSTRAD répond en affichant la 
distance sé ‘parant le navire invisible de la case visée. Mais. si l'on tire trop 
près. le navire risque de se recacher au hasard. 


LE PROGRAMME : 

La boucle L (50-80) dessine le terrain de jeu. 

Les lignes 100-110 définissent l'emplacement du navire. 

Les coordonnées du tir sont entrées aux lignes 130 et 140. et la ligne 150 
affiche le COUp sur l'écran. La distance est calculée en ligne 160. et la ligne 
170 regarde si l'on a ou non fait mouche. 

La ligne 190 intervient pour déplacer le navire si les coups sont rap- 
proc hés 

La ligne 200 permet l'affichage de la distance. 


POUR JOUER : 

Le terrain de jeu est affiché après avoir frappé RUN. A l'affichage de 
LIGNE. on répond en donnant le numéro de la ligne horizontale sur la- 
quelle on désire tirer. On tape ensuite ENTER et. à la question COLONNE. 
on répond en donnant le numéro de la colonne verticale suivi de ENTER. 
Si on a tiré trop près. on obtient l'affichage PFFFF.. qui signifie que le 
navire enneri a changé d'emplacement. 

Si on a tiré sur la bone case. on obtient l'affichage du nombre total de 
üurs effectués pour gagner. 


EXTENSIONS POSSIBLES : 

Elles sont innombrables. puisqu'ausst bien la bataille navale est lun des 
jeux les plus répandus qui soit. On peut introduire deux joueurs. jouer 
contre AMSTRAD. mettre plusieurs navires. des sous-marins. etc 


10 KEM BATAILLE NAVALE 

20 KANDOMIZE TIME 

30 CLS 

40 FRINT " Q 1 2 4 4 5 6 7 8 
QUI FRINT 

30 FOR 1x0 TO 9 

60 FARINT Tir, » 


70 FKINT 

80 NEXT I 

90 Sxil 

100 X=INT (CKNDX10) 

110 Y&INT (CKNDX10) 

120 LOCATE 1,23:FRINT " 

150 LOCATE 1,23: INFUT'LIGNE : "5H 

140 LOCATE 24,23: INFUT'COLONNE "44 

150 LOCATE ŒEXV+4S, DXH+3: FEN Ze PRINT S:FEN 
1 

160 DÆINT(SORCCX--H) X CX-H) 4 CV VD K CV V) )) 
170 IF D=0 THEN 210 

180 S=S+i 

190 IF Di THEN LOCATE 1,24:FRINT "FFFF, 
vai » M": GOTO 100 

200 LOCATE 1,24:PRINT M"DISTANCE “AL 
sD:GOTOQ 120 

210 CLS 

220 FRINT "TROUVE EN'"35S3"COUFS 
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Golf 





REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : solitaire. 

Difficulté du jeu : assez facile. 


LE JEU : 
Il s’agit d'essayer de réaliser. avec le moins de coups possible, un parcours 
D . # . 0 0 

de golf de 18 trous. Pour cela. il vous faut frapper la balle avec une force 
[a . . s* L 

plus ou moins grande. jusqu’à obtenir sa chute dans le trou. 

Mais attention. il peut v avoir un certain aléa sur chaque coup, et vous 

serez amené souvent à revenir en arrière (il faudra alors faire précéder 

l'indication de la force par un signe —). 


LE PROGRAMME : 

La ligne 70 permet de définir la position du trou. et la ligne 80 dessine le 
terrain de Jeu. 

Le déplacement à réaliser est calculé en ligne 120. 

La boucle (150-210) réalise le déplacement de la balle. 

La ligne 220 regarde si le coup est. où non. gagnant : s'il l’est, on recom- 
mence (ligne 270) jusqu'à ce que l’on ait réalisé 18 trous (boucle S (40- 
270) : fin de boucle en 290, avec affichage de fin). 


POUR JOUER : 

On obtient l'affichage du terrain en frappant RUN ainsi que le dessin de 
la balle sur sa position de départ. et le texte : Trou 1. Force :on doit alors 
répondre en donnant la force désirée (un nombre entre Let 300... 

Des que l'on aura tapé ENTER. la balle recommence à se déplacer : elle 
peut alors soit s'arrêter avant le trou (auquel cas on recommence). soit 
tomber dedans (on passe alors au trou suivant). soit le dépasser : on devra 
alors frapper avec une force négative. 


Le jeu se termine avec l'affichage 18 TROUS EN .… ESSATS. 


EXTENSIONS POSSIBLES : 

Il sera possible d'étendre le jeu pour faire participer plusieurs joueurs. 
d'améliorer la qualité graphique. d'utiliser une représentation spatiale du 
terrain (se référer à certains Jeux d'arcade). d'avoir un terrain plus acci- 
denté. des obstacles. de changer de club... 


10 REM GOLF 

20 KANDOMIZE(TIME) 

20 INF OSOSINE 1,18: INF ZS,ONINE 3,26 

40 FOR Sx1 TO 18 

50 CLS 

60 X:=1 

70 T&INT(Z29XxRND+9) 

80 FEN 1:LOCATE 1,12:FRINT STKINGS (40,20 
63) 

90 PEN S:LOCATE T,IZ: FRINT'" "'eLOCATE 1,1 
L:FRINT "O': 

100 FEN 2:LOCATE 1,17:FRINT "TROU":Ss" F 
ORCE 7" 

110 LOCATE 16,17:FRINT " " 
120 PEN Z:LOCATE 16,17: INPUT MUR 

150 FÆSINT(RKO. 16- (ARS (CR) x (SOR CRND) +0, 1) T 
2) /1000) 

140 IF F =0Q THEN 110 

150 FOK I=1 TO MIN (ABS(F),40) 

160 X=X4+SGN(F) 

170 FEN 3 

180 IF X=40 AND X:=1 THEN LOCATE X-SGN( 
FILS PRINT " "sLOCATE X,11:FRINT "O" 
190 IF X:=40 THEN X=40 

200 IF Xéel THEN X:x1 

210 NEXT I 

220 IF X=T THEN 250 

230 EsE+l 

240 GOTO 110 

250 LOCATE X,1l:FRINT " "eLOCATE X,12:PFK 
INT "O" 

260 FOR Fz1i TO 1O00O0:NEXT F 

270 NEXT S 

280 CLS 

290 LOCATE 10,12: FRINT'"'18 TROUS EN'"sES"E 


SSAIS" 
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Solfège 





REFERENCES : 
Difficulté de programmation : movenne. 
Catégorie de Jeu : réflexion. 


Difficulté du jeu : facile. 
LE JEU : 


Ce programme vous propose une initiation élémentaire au solfège. en vous 
permettant d'apprendre à reconnaître facilement les différentes notes. qui 
apparaissent les unes après les autres sur une portée : après l'affichage de 
la note. vous devez entrer son nom en clair et votre score sera affic fé en 
permanence. 

Le programme est initialement prévu pour la clé de sol mais 1l sera très 
facilement adaptable à toute autre clé. 


LE PROGRAMLME : 

La boucle 1150-80: dessine une portée. 

La note est choisie en ligne 100 et affichée en lignes 130 à 160 avec encre 
transparente ligne 120. 

La ligne 190 affiche le score. 

a ligne 200 affiche le nom de la clé ici clé de sol) et vous interroge. 

a ligne 220 S'oceupe de la fin de la partie. 

es lignes 230 et 240 effectuent le décodage de la note entrée. 

a ligne 260 contrôle le résultat. 


POUR JOUER : 

Après avoir lancé le programme par RUX. la portée sera affichée. ainsi 
que la premiére note. 

Vous répondrez à la question NOTE en donnant le nom en clair de la note 
do. ré. mi. fa. sol. la ou st. suivi de ENTER. 

Le score vous indiquera si c'est exact ou non. et une nouvelle note sera 
affichée. 

Pour arrêter. il suffira de répondre 0 suivi de ENTER. à la question NOTE. 


EXTENSIONS POSSIBLES : 

On pourra tout d'abord facilement modifier le programme pour lui per- 
mettre de vous faire travailler les différentes clés. On pourra aussi amélio- 
rer le graphisme. introduire la couleur. le son (lorsque l'on a répondu juste. 
on entendra la note. par exemple}. On pourra aussi réaliser suivant le 
même principe un jeu vous permettant de reconnaître des accords. ete. 


10 REM SOLFEGE 

20 RANDOMIZE (TIME) 

30 Sr0: FO 

40 CLS 

50 FOR Izi TO 5 

60 FEN © 

70 LOCATE 1,2XI+2:PRINT STRINGS (40,210) 
MO NEXT I 

90 FEN 3 

100 N&INT (RNDX 12) +1 

110 XeN+T 

120 PRINT CHARS (22) +CHRS (1) 

130 LOCATE 21, X2: PRINT CHARS (211) : LOCATE 
DL, XD: PRINT CHRS (92) 

140 LOCATE 21, X-1: PRINT CHR (211) 

150 LOCATE 19,X:PRINT CHRS (214) : CHRS (215 
): CHR (211) 

160 LOCATE 19,X+1: PRINT CHARS (212) : CHRS (2 
12) 

170 PRINT CHARS (22) +CHRS (0) 

180 FEN 1 

190 LOCATE 10,21: PRINT'SCORE" 5: SG: "SUR": Fa 
"ESSAIS": PRINT 

200 INPUT "CLE DE SOL — QUELLE EST LA NO 
TE "sR# 

210 RSUPPERS (RS) 

220 IF R$="O" THEN END 

250 Yæ(l AND Réx"GOL")+(2 AND R$x"FA")+( 
E AND R#='"MI")+(4 AND R#&"RE") 


(7 AND R#æ"LA'") 

250 Fep+l 

260 IF YeN OR (YeN-7 AND N>9) THEN S=S+1 
270 GOTO 40 
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Le jeu du 21 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de ] jeu : jeu contre AMSTRAD. 
Diffice ulté du jeu : facile. 


LE JEU 

On devra entrer une mise au début du jeu. et on pourra lancer les dés en 
tapant À: à chaque lancer. on obtiendra un nouveau total. qui augmentera 
peu à peu. et se rapprochera de 21. On devra essayer de se rapprocher le 
plus possible de 21. sans dépasser ce nombre. Lorsque lon décidera de 
s'arrêter. 1 suffira de taper 0 pour laisser jouer AMSTRAD qui essaiera 
alors d'avoir un meilleur score. 

A la fin de chaque partie. le gain sera affiché ainsi que le total des gains 
(ou des pertes). 


LE PROGRAMME : 

Les lignes 00 et 70 réalisent le contrôle de celui qui doit jouer (joueur ou 
AMSTRAD. 

Le sous-programme 410-420) lance les dés. 

Les lignes 90 à 110 caleulent le total fait par le joueur et Faffichent. 

Le total d'AMSTRAD est caleulé en ligne 180 et affiché par la higne 200. 
La ligne 230 contrôle la fin du jeu pour AMSTRAD. 

Les line 200-280 affichent les résultats. 

Le gain ou la perte sera affiché par la ligne 330. et le total par la ligne 
300. 

La ligne 390 contrôle la fin de partie. 


POUR JOUER : 

Taper RUN pour lancer le jeu. 

A la question VOTRE MISE. entrer la mise initiale. suivie de ENTER. et 
taper L pour lancer le dé. Le premier tirage est affiché sous la forme VOUS 
AVEZ.. eton devra refaire Lsuivi de ENTER. tant que lon désire recom- 
mencer à tirer. 

Des ‘que l'on a terminé. on tape O et ENTER pour laisser jouer AMSTRAD 
(qui tient ier le rôle de la banque}. 

Le gain (ou la pertes lv a le signe —) sera affiché en fin de jeu. ainsi que 
le total des gains (ou pertes) réalisé de puis le début. Si l'on désire arrêter 
de jouer. on devra taper N° en réponse à la question ON CONTINUE 
(O/N.. 


EXTENSIONS POSSIBLES : 

Ce jeu sera évidemment plus imtéressant S'ilest pratiqué à plusieurs. etil 
sera aisé de modifier le programme en conséquence. On pourra ausst des- 
siner le dé. où mieux. utiliser des cartes. ce qui permettra alors de faire un 


jeu de Black Jack. 


10 RKEM JEU DU Z1 

20 RANDONMIZE(TIME) 

30 CLS 

40 TxO 

30 INFUT "VOTRE MISE :'":M 

60 LOCATE 35,25: INPUT "FAIRE 1 FOUR TIRER 
À FOUR FINIR'"':R 

70 IF KzO THEN 140 

80 GOSUR 410 

90 TET+X 

100 FAFER S:FEN 2 

110 LOCATE 10,12:PFRINT USING'VOTRE TOTAL 
EST DE ##'"3T 

120 FAFER O:FEN 1 

130 GOTO 60 

140 CLS 

150 FRINT "LA BANQUE JQUE" 

160 5=0 

170 GOSUKR 410 

180 SzS+X 

190 FAFER 1:FEN © 

200 FRINT USING "TOTAL DE LA RANQUE ##'': 


S 
210 FAFER O:FEN 1 
220 FOR Ii TO SOOINEXT I 


230 IF ST OK S*+17 THEN 250 

240 GOTO 170 

250 CLS 

260 FAFER GS:FEN 2:FRINT USING "VOUS AVEZ 

HHUAT 

270 FRINT 

280 FAFER 1:FEN O:FRINT USING "LA HANQUE 
A #K#"3S 

290 FAFER O:FEN 1! 

200 FRINT 

10 IF Sri OK (ST AND Téz=21) THEN 330 
320 M=-NM 

HEO FRINT "GAIN ":5M 

540 FKINT 

350 G=G+M 

#60 FRINT "VOTRE TOTAL ACTUEL "3:36 

370 FKRINT 

380 INFUT "ON CONTINUE (O/N:i":RS 

590 IF K#='"N" THEN END 

400 GOTOQO 50 

410 X=INT C6XRND) +1 

420 RETURN 
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Pair-impair 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : lancer de dés. 
Difficulté du jeu : facile. 


LE JEU : 

C'est un Jeu de hasard. pour un ou plusieurs joueurs. AMSTRAD lance 
simultanément deux dés. non visibles et pose trois questions : quelle est la 
parité du total. quelest le total. etenfin donner la valeur de Fun des dés. 
On peut ensuite soit poursuivre le jeu. soit Finterrompre à tout moment. 


LE PROGRAMME 

Les dés sont trés par un sous-programme placé aux lignes 380 et 70. 

La ligne 80 tent lee ompte du nombre de parties. et les lignes 180.250 et 
290 comptabilisent les points marqués. 

La parité du total est déterminée par les lignes 130 et 140 (a ligne 140 
compare avec la réponse du joueur 

La ligne 300 et les suivantes réalisent F affie hage de fin de partie : total. 
nombre de points. nombre de partie $ joué es. 


La ligne 3060 provoque l'arrêt si Fon répond N à la question ON CONTI- 
\UE. 


POUR JOUER : 

Ou lance le programme par l'instruction RUN. 

[suffit ensuite de ré ‘pondre aux diverses questions posées. en suivant 
scrupuleusement les indications données et en tapant ENTER après chaque 
reponse. 

Lorsque lon a terminé une partie. on obtient l'affichage du total actuel et 
du nombre de parties sous la forme de. par exemple. VOTRE TOTAL 6 
EN 10 PARTIES. 

On obtient alors l'affichage de la question ON CONTINUE (O/N) et l'on 


devra répondre NX suivi de ENTER pour arrêter. 


EXTENSIONS POSSIBLES : 

Si l'on désire joue r à plusieurs. il sera intéressant de prévoir la possibilité 
de miser. et d ajoute rune gestion du score réalisé par chacun des joueurs. 
On pourra aussi prévoir une amélioration sur le plan de la présentation 
(utilisation de la couleur. ete). 


10 REM FAIR-IMFAIR 
20 KANDOMIZE (TIME) 
20 INK 5,23, 6 

40 Ts=0O:R=Q 

30 GOSUER 280 

60 Az=X 

79 GOSUR 580 

60 Ke=R+1 

90 S=AtrX 

100 CLS 

110 INFUT "TOTAL FAIK 
s'UaN 

130 FRINT 

150 FeS/2-INT(S/2) 


(CO) OÙ IMFAIK 


140 IF NF OR N-0.S&F THEN 170 
190 FEN Z:FKINT "FAUX'"3:FEN 1 


160 GOTQ 190 


170 FEN 2:PRINT MEXACT':FEN 1 


180 Tæ=T+1 
190 FRINT 


200 INFUT "TOTAL FRESUME 


210 IF N=S THEN 450 


ENS FARINT 


220 FEN SGiFRINT "FERDUM:FEN 1 
230 FOR Iæ1i TO ISOO:NEXT I 


240 GOTO 310 


250 T=T+2 


260 FEN Z:FRINT "BKAVO! 
270 INFUT "DONNEZ UN DE 


280 IF NEA AND N::S-A 
290 TaT+3 


as PEN: 1 
S'ENSFRINT 
THEN 220 


300 FEN 2:FRINT "BRAVO!MSFEN 1:GOTO 


310 CLS 


ae () 








HO IF Rél THEN FRINT 
340 FHKINT 

3530 INFUT MON CONTINUE 
60 IF RS& "NU THEN END 
370 GOTQ SO 

280 Xe INT CKNDX6) +1 

390 RETURN 


ct 
men 


CO/ND "SRE 


(1) 


ET) 


FECINT MUOTRE TOTAL: MS TS MEN" RS FARTI 
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Devine un chiffre 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de Jeu : lancer de dés. 
Difficulté du jeu : facile. 


LE JEU : 

C'est un jeu de hasard. de conception très simple, mais néanmoins assez 
passionnant : le joueur introduit sa mise, et parie sur un chiffre, de 1 à 6 : 
trois dés sont alors lancés : si le chiffre joué apparaît deux fois il double sa 
mise : s'il apparaît trois fois. il triple sa mise. 


LE PROGRAMME : 

Le tirage des dés est réalisé par un sous-programme placé en lignes 1000 
et 1016. 

L'affichage est réalisé par les lignes 159 et 160, la ligne 145 ayant déplacé 
les tabulations. 

Les lignes 180 à 210 calculent le gain dans les diverses configurations 
possibles. 

La totalisation est effectuée en ligne 230 pour les gains, et en ligne 510 
pour les pertes. 

La variable R$. testée en ligne 550. détermine la poursuite éventuelle du 
jeu. 


POUR JOUER : 

Le lancement du programme par RUN provoque un premier affichage 
VOTRE MISE : on répond par un nombre suivi de ENTER. On obtient 
alors un deuxième affichage DONNEZ UN CHIFFRE DE 1 A 6 : on entre 
un chiffre suivi de ENTER : les 3 dés, repérés par les lettres A, B, C 
s'affichent alors. ainsi qu'un message indiquant votre gain ou votre perte. 
Puis une indication sur votre total actuel apparaît, ainsi que la question 
ON CONTINUE (O/N) : taper O pour continuer, N pour arrêter (suivi de 
ENTER). 


EXTENSIONS POSSIBLES : 

On pourra facileme ‘nt introduire des contrôles (mise minimum. coup pro- 
posé de T à 6. etc.). On pourra aussi dessiner des dés avec un graphisme 
plus élaboré. in la possibilité de jouer à plusieurs. faire même 


participer AMSTRAD. 


10 
20 
40 
30 
60 
70 
0 
FE 
Le (e] 
100 
110 
120 
150 
140 
145 
150 
160 
170 
180 
190 
200 
210 
220 


230 


240 
500 


100 
101 


REM DEVINE UN CHIFFRE 
RANDOMIZE (TIME) 


El 


G=0Q 
CLS 

INFUT "VOTRE MISE: MN 
FRINT 

FECINT "DONNEZ UN CHIFFRE DE 1 À 6: "5 
N 2: INFUTUM,D:FEN 1 
GOSUR 1000 

A: X 

GOSUE 1000 

B:=X 

GOSUR 1000 

Cr X 

ZONE 10 


PRINT: FRINTSFRINT ," AM," H"," C" 
PRINT: PEN 2:PRINT , AB, C:FEN 1 

T=0 

IF DA THEN T=T+N 

IF D=B THEN T=T+N 

IF DxC THEN T=T+N 

IF T=0 THEN 500 

PRINT: PRINT: FRINT'VOUS GAGNEZ"3T 
G=G+T 

GOTO 520 

PEN 3: PRINT: PRINT: PRINT'PERDU": PEN 


G=G--N 

PRINT: PRINT: FRINT'TOTAL ACTUEL :"356G 
PRINT: PRINT 

INFPUT'ON CONTINUE CO/N)":KS 

IF KR$='"N" OK K$='"n" THEN END 

GOTO 50 
Q X=INT (RNDX6) +1 
Q RETURN 
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Le jeu de Wytthof 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : réflexion {deux joueurs). 
Difficulté du jeu : moyenne. 


LE JEU : 

On dispose d'une grille carrée de 10 cases sur 19 cases. Un point apparaît. 
en dehors de la diagonale et les joueurs devront le déplacer à chaque tour. 
suivant seulement trois directions : droite. bas et diagonale. bas et droite. 

PUS 
Le premier Joueur qui arrive en (9.9) sera considéré comme gagnant. ou 
| ] Ï ras 

perdant. selon la convention faite au début. 


LE PROGRAMME : 

Les lignes 40. 50 et 60 permettent de définir une position de départ. et 
dehors de la diagonale. 

La ligne 80 et la boucle 1 (90-110) dessinent le terrain de jeu. 

La ligne 130 imprime la position du point mobile. (une face qui devient 
souriante à la case d'arrivée (9.9), 

Le test de fin est effectué en ligne 140. 

Le changement de joueur est assuré par la ligne 200. 

Les directions de déplacement disponibles. 4. 2 et 3. sont décodées par 
trois sous-programmes qui commencent aux lignes 220. 240 et 250. 


POUR JOUER : 

Taper RUN pour lancer l'exécution du programme. Le terrain de jeu s'af- 
fiche, ainsi que la position de départ. 

Puis on obtient l'affichage JOUEUR T et en dessous la question DIREC- 
TION (1.2.3. à laquelle on répond en tapant Fun de ces trois nombres. 
suivi de ENTER. 

C'est ensuite au tour du joueur 2. 

Le jeu se termine lorsque Fun des joueurs arrive en case (9,9), faire alors 
ESC deux fois pour reprendre la main. 


EXTENSIONS POSSIBLES : 

On peut tout d'abord améliorer les contrôles (la sortie du terrain n'est pas 
inte dite. par exemple). améliorer ensuite l'affichage (graphisme. cou- 
leur), étendre le jeu à plusieurs joueurs avec un terrain agrandi, introduire 
un monstre qui va essayer de capturer un des joueurs, prévoir un program- 
me qui permettrait à votre AMSTRAD de jouer. etc. 


10 REM JEU DE WYTTHOF 

20 RANDOMIZE  CTIME) 

30 DEFINT X,Y 

40  X=KNDXS 

JO YEeRNDXS 

60 IF VX THEN 50 

70 CLS 

&8Q FARINT " Q 1 2 2% 4 5 6 7 8 
Q" 

90 FOR IQ TO 9 

100 PRINT FECINT "OMIS" 

110 NEXT I 

120 Hxl 

130 LOCATE ŒXX+O, 2XV 4e PRINT CHARS CS2ES+ CX 

#9 AND Y#9)) 

140 IF X=9 AND YxQ THEN FEN 1:G0OT0 140 

150 FEN H+1 

160 LOCATE 1,2: FRINT STRINGS (50,32) 

170 LOCATE 1,2%: FARINT "JOUEUR!" 3 HS: INPUT" 

DIRECTION (1,2,4) "5 DS 

180 DeVAL (D#) 

190 ON D GOSUR 220,240, 290 

200 He2-ARS (Hi 1) 

210 GOTO 140 

220 XeX+1 

an0 RETURN 

240 GOSUR £420 

A Ya V4 

260 RETURN 
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Rebonds 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de Jeu : Jeu d'adresse. 
Difficulté du jeu : moyenne. 


LE JEU 

Il utilise l'idée de la simulation d'un billard à bandes. 

De part et d'autre de l'écran se trouvent la balle et le but visé : une série 
de chiffres et de lettres. en haut de l'écran. permettent de choisir l'endroit 
où l’on désire rebondir. 

La balle va alors partir vers le haut de l'écran. y rebondir, revenir éven- 
tuellement frapper le bas. rebondir. et ainsi de suite jusqu’à atteindre la 
ligne de but : si l'on est suffisamment près de la cible on a gagné et le 
nombre de rebonds sera alors affiché. 


LE PROGRAMME : 

La ligne 60 imprime les chiffres et les lettres en haut de l'écran. 

Les lignes 70 et 80 définissent les positions initiales de la balle et de la 
cible. 

Les lignes 100 et 110 effectuent leur impression. 

Le sy mbole « ‘orrespondant à à la direction choisie est entré en ligne 120. 

La boucle J (180-220) réalise le déplacement de la balle. 

La ligne 210 imprime la nouvelle position. 

Le changement de direction. lors de la rencontre d’un bord, est effectué 
par la ligne 220. 

La ligne 240 effectue l'impression de fin de partie. 

Le nombre de rebonds est compté en ligne 200. 


POUR JOUER : 

On lance le programme par RUN. 

Le terrain de jeu est affiché, ainsi que les positions initiales de la balle et 
de la cible. On choisit l'endroit où l’on désire faire rebondir la balle (de 1 
a Z).eton l'entre. 

La trajectoire est alors affichée. suivie s’il y a lieu de la mention BRAVO : 
X REBONDS. 

On peut lancer une autre partie en tapant une touche quelconque, et s’ar- 
rêter à tout moment en tapant ESC deux fois. 


EXTENSIONS POSSIBLES : 

Il sera très intéressant. en utilisant un graphisme plus fin, de dessiner un 
véritable billard, avec son tapis vert. et d'indiquer la direction par un 
segment. symbolisant la queue de billard, se déplaçant autour de la bille. 
On peut aussi ajouter des trous, mettre plusieurs billes, sonoriser les re- 
bonds. ou les heurts avec d’autres balles. les comptabiliser pour faire une 
partie à plusieurs joueurs. etc. 


10 REM KEBONDS 

20 RANDOMIZE (TIME) 

30 DEFINT X,Y 

40 INE O,9:INE GS, 

30 CLS 

60 FRINT "  0125456789ABCDEFGHIJELMNOFOR 
STUVWXYZ" 

70 X=4+KNDX*168 

80 Yz?+RNDX168 

90 FEN 3 

100 LOCATE 1,X:FRINT CHKS#& (164) 

110 LOCATE 40,Y: FRINT "1" 

120 FEN 1:LOCATE 1,25: INFUT "VOTRE COUF: 
MURSIPEN 3 

1350 R$S=UPFFERS (R$) 

140 Ves+ASC(RS) ASC ("O0") +7X (R$S=" A") 

150 Sx0 

160 TæX 

170 DT=(2-X)/(V-1) 

180 FOR J=Z2 TO 40 

190 TE=T+DT 

200 IF TER OR T325 THEN DTa-DT:T=25+25X ( 
DT#O):5S=S+1 

210 LOCATE J,T:FRINT CHKRS$ (164); 

220 NEXT J 

230 LOCATE 1,12 

240 IF ARS (T-Y)£2 THEN FRINT "HRAVO!'":S 
: "REBOND'':STRINGS#(-(5%1),"S") 

250 INFUT "UNE AUTRE PARTIE (CO/N)'"':RS:FE 
N 1 

260 IF R$="O0" THEN RUN 
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Jackpot 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : hasard [un Joueur). 
Difficulté du jeu : facile. 


LE JEU : 

C'est une variante simplifiée d'un jeu de hasard classique. dans lequel le 
joueur doit faire une mise. S'ilobtient certaines combinaisons de symboles. 
il gagne plus ou moins. selon sa mise et la combinaison obtenue). 

Lei. les symboles sont remplacés par des chiffres, et le fait d'avoir trois 
chiffres identiques permet de gagner. Iexiste de plus une combinaison 
particulière qui permet de remporter le Jackpot. 


LE PROGRAMME : 

La boucle 1170-90! permet le dessin de la machine. la boucle (119-130! 
affichant les emplacements (vides) des chiffres. 

La mise sera entrée en ligne 140. et testée en ligne 150 : si on mise 0, la 
partie est terminée {départ vers la ligne 350). 

Les lignes 160. 180 et 200 permettent le tirage des 3 chiffres. en appelant 
un sSOus-programime qui se trouve en ligne 330. 

Le résultat est affiché par la ligne 220. puis testé en ligne 240, et en ligne 
310. si l'on a gagné. 

POUR JOUER : 

Lancer le programme par RUN : à l'affichage de la question POT DE 
DÉBUT. on répond en entrant un nombre suffisamment élevé. sur lequel 
vos mises seront décomptées. 

Puis on tape ENTER. et on entre une première mise (différente de 0). 
suivie de ENTER. 

Les trois chiffres tirés sont alors affichés un bref instant, ainsi que la mise 
faite. et le résultat obtenu [gain ou perte). 

On peut ensuite miser de nouveau. faire ENTER et ainsi de suite. 

Pour terminer. il suffit de répondre 0 à la question VOTRE MISE. 

Le restant de votre potinitial sera alors affiché. 


EXTENSIONS POSSIBLES : 

On pourra envisager d'améliorer sérieusement les contrôles. utiliser la cou- 
leur et des possibilités graphiques plus élaborées pour simuler davantage 
un véritable Jackpot. 


10 REM JACEFOT 

20 DEFINT X 

20 RANDOMIZE (TIME) 

40 INE O,9:EORDER 9 

DO INE L',ISINE 2,16, 22: INE GS 

60 CLS 

70 FOR Ixl TO & 

80 LOCATÉE 10, +4: PAPER Ga FRINT STRINGS CE 

1,32) 

GO NEXT IT 

100 FAFER O 

110 FOR Ixl TO 3 

120 LOCATE 14,S+IsFRINT " MaLOCATE 19 

SOHISFARINT " Ms LOCATE 24,5+I:FRINT " 

130 NEXT I 

140 LOCATE 1,14: INFUT'VOTRE MISE:'":M 

150 IF MzO THEN 550 

160 GOSUER 350 

170 AzxxX 

180 GOSUR 350 

190 EzX 

200 GOSUR #0 

210 FEN 2 

220 LOCATE 14,7:FRINT A:LOCATE 19,7:FRIN 

T EsLOCATE 24,7: FRINT X 

BEO FEN 1 

240 IF ÀA=E AND AzX THEN 2300 

250 Nz-M 

260 LOCATE 7,14: FRINT USING "MISE :H##H## 
1 RESULTAT 2 HH###H#'"s MN 

270 LOCATE 4,25sINFUT "TAFER £ENTER®% FOU 

KR CONTINUER": RS& 

280 FeF+N 

290 GOTOQ 60 

200 NeMXE50 

310 IF Àz7 THEN NeMXx500 

320 GOTO 260 

HFOQ X=GxXRND+1 

#40 RETURN 

350 CLS 


360 PRINT "VOUS AVEZ "sFs"A BIENTOT'!" 
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Roulette 





REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de Jeu : hasard (plusieurs joueurs). 
Difficulté du jeu : facile. 


LE JEU : 

[Lest surtout spectaculaire par son aspect graphique : une boule, repré- 
sentée par une bille. se dé plac e sur un terrain de jeu € omportant des cases 
numérotées de 1 à 36. ainsi que trois cases supplémentaires. le 90. une 
case P {comme pair) et une case F(eomme impair). 

La boule parcourt au moins une fois chaque case. puis s'arrête au deuxième 


tour. on peut ensuite la relancer pour une autre partie. 


LE PROGRAMME : 

La boucle K (60-120) dessine le terrain de jeu. auquel la ligne 130 rajoute 

les trois symboles P. 00 et LE. 

La boucle K (150-230) réalise le déplacement de la boule. l'arrêt étant 
A ” : ° p l 

contrôlé par la ligne 200. 

La boucle J (ligne 210) réalise une légère temporisation variable pour 

simuler le ralentissement de la balle. 

La ligne 210 efface la bille en déplaçant le curseur d'impression vers la 
£ pla ( 

gauche. 

La ligne 240 ture la position d'arrêt. 

La ligne 260 gère les essais suivants. 


POUR JOUER : 

I suffit de faire RUN. et de regarder. 

Une fois la boule arrêtée. 1l suffira de frapper une touche quelconque (sauf 
*N°) pour la relancer. Taper N pour sortir du programme. 


EXTENSIONS POSSIBLES : 

On pourra essayer de se rapprocher davantage d’une véritable roulette. de 
différentes manières : mieux dessiner le terrain de jeu, introduire des cou- 
leurs, simuler le ralentissement de la boule, introduire différentes possi- 
bilités de pari. et assurer la gestion des gains correspondants, tenir les 
comptes de plusieurs joueurs. et annoncer les résultats sous une forme plus 
usuelle. 


10 KREM ROULETTE 

20 RANDOMIZE(TIME) 

320 DEFINT X 

40 INF O0,9:BORDER 9:INE 3,26 

90 CLS 

60 FOR Ex1l TO 4 

70 FOK I=il TO 9 

80 SæI+I 

90 FRINT TAR(4XI) (S AND H=1)+(S+18 AND 
e2)+(S-1 AND KH=7)+(S+17 AND Hx4);: 

100 NEXT I 

110 FRINT: PRINT: FRINT: FRINT 

120 NEXT K 

130 LOCATE 1,S:FRINT "F'sLOCATE 1,7: FRIN 
T "OO":LOCATE 1,11:FRINT"I" 

140 FEN 2 

150 FOR E=1l TO 4 

160 FOR I=1 TO 10+(kx4) 

170 IF I=10 AND KH£4 THEN LOCATE 1,4XE E 
LSE LOCATE 4xI+1,4XH-—1 

180 PRINT CHRK$& (231); 

190 X=X-—1 

200 IF X=0 THEN GOTO 260 

210 FOR J=1i TO 3O0kx(1-(C397/X)XCX:0) ): NEXT 
J:FRINT CHRK#&(S) 3" " 

220 NEXT I 

30 NEXT EF. 

X=1+RNDX59 

GOTO 150 

260 es 1: FAFER S:LOCATE 1,20: INFUT "AUT 
RE ESS (O/N): "5: RS: FAFER 0 

270 IF ee THEN END 

280 GOTO 50 


Es 
Le] 


1H 5 1 
a 
re: 
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Couloirs 





REFERENCES : 
Difficulté de programmation : moyenne. 
Catégorie de Jeu : réflexion. 


Difficulté du jeu : difficile. 
LE JEU : 


[ fait appel à des notions de logique élémentaire. Le joueur peut se pré- 
senter à l'entrée. soit du couloir numéro 1. soit du couloir numéro 2. Dans 
ces deux entrées sont disposés des tourniquets qui basculent à votre pas- 
sage et vous laissent passer. une fois vers la droite. et la fois suivante vers 
la gauche, De plus. un tourniquet analogue a été disposé dans le couloir 
central. pourrez-vous prévoir où (sortie À ou B) va s'effectuer votre pro- 
chaine sortie ? 


LE PROGRAMME : 

Les lignes 30 à 140 dessinent les couloirs (et les trois tourniquets) à l'aide 
du sous-programme 360 qui déplace le curseur d'impression (codes ASCII 
8 et 10). 

La ligne 180 attend votre choix. 

Le décodage du chemin est fait par AMSTRAD en utilisant trois variables 
logiques L Jet kK. représentant les états des trois tourniquets (lignes 210 à 
300). 


POUR JOUER : 

Après la frappe de RUX. le couloir est dessiné sur l'écran. les tourniquets 
étant visibles. et l'on devra taper Lou 2 en réponse à la question de 
AMSTRAD. 

Dans la version retenue 1c1. la réponse est alors immédiatement affichée. 
et le chemin suivi depuis le début du jeu. ainsi que les sorties 
dantes. sont affichés sur Fécran. Ceci présente l'avantage de perméttre 
plusie urs joueurs d'exercer leur sagacité en essayant de prévoir, pour une 
entrée donnée. ce que va ré pondre : AMSTRAD. 


EXTENSIONS POSSIBLES : 

Elles seront très nombreuses : ilest très facile d'imaginer un couloir plus 
complexe avec d'autres entrées et d’autres sorties. et d’autres tourniquets. 
On peut imaginer un affichage graphique des résultats en dessinant. un 
bref instant. Tét tat des tournique ts après la réponse du joueur. On peut 
aussi ajouter un test ae réponses (jeu à plusieurs). déc compter les points 
de chaque joueur. etc... 


10 REM COULOIRS 

20 CLS 

30 FRINT STRINGS (40,154) 

40 FRINT 

50 FRINT "HR": SFACES (6) : STRINGS (26,154)3:5S 

FACES$(6)3;"2" 

60 FRINT 

70 FRINT STRINGS#(14,154):;SFACES (12); STRI 

NG# (14,154) 

80 FRINT 

90 FRINT "A':SFACES (6) : STRINGS (26,154)3:5 

FACE#(6)5;"1" 

100 FRINT 

110 FRINT STRINGS (40,154) 

120 FEN 3:LOCATE 355, 3: GOSUR 360 

130 LOCATE 14,6:GOSUB 360 

140 LOCATE SS,9:GOSUR 360 

150 I=O0: JO: KE=Q 

160 Rhzæ!"Ms Tel" 

170 FEN 2 

180 LOCATE 1,17:FRINT CHR$(18)3:INFUT "E 

NTREE 1 OÙ 2:"3:C$# 

190 IF Cé$="" OR Céi='"3s" OR C$<'"'1" OR LEN 
(C#H)<r1 THEN 180 

200 R$=RS+CS 

210 FRINT:FRINT K$# 

220 IF C$='"il" THEN 270 

230 JEeNOT J 

240 IF J{r0 THEN SO 

250 S$='"e" 

260 GOTO 500 

270 I=NOT(I) 

280 IF 1450 THEN S5O 

290 S$="A" 

O0 TheTh+SS 

310 LOCATE 1,21:FRINT "SORTIE EN ":;:S#$:FR 

INT:FRINT T$ 

320 GOTO 180 

SEO E=NOT (K) 

#40 IF KHérO THEN 250 

350 GOTO 290 

560 FRINT CHKS$ (205) 3" "a CHRS (204); 

370 FRINT STRINGS# (2,8) : CHRS (10) ; CHR (203 

)3 

80 PRINT STRINGS (2,8) ; CHRKS$ (10) ; CHRKS (204 

Ds" "se CHRS (205) 

590 RETURN 
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Echiquier 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de Jeu : graphisme. 

Difficulté du jeu : variable. selon utilisation. 


LE JEU : 

Le programme proposé vient en appoint du programme Echecs : il donne. 
en effet. la possibilité de réaliser un affichage graphique de bonne qualité 
pour des jeux utilisant un damier de 8 cases {on pourra facilement l'étendre 
à 19 cases sur 10 cases}. Un repérage a été prévu. horizontalement. par 
des lettres {de A à Pl. et. verticalement. par des nombres (de 1 à 8). 


LE PROGRAMME : 

Les lignes 50. 60 et 70 définissent trois variables A$. B$ et C$ qui contien- 
nent les éléments de dessin. La ligne 89 imprime les lettres horizontales 
sur une fenêtre. avant sa propre couleur d'impression. 

La boucle 1 (90-150) permet l'impression. le motif à imprimer étant af- 
fiché ou non selon la valeur de (1 + P/2 : la ligne 120 réalise l'impression. 


POUR JOUER : 

L'ordre RUN provoque l'affichage du damier sur l'écran. 

Pour utiliser le programme. il conviendra de tenir c ompte du repérage des 
cases utilisables qui sont les centres des carrés noirs ou gris. Les cases sont 
obtenues en largeur par une tabulation de la forme 3x]. J variant de 1 à 
8. et en hauteur par 2x|. 


EXTENSIONS POSSIBLES : 
On pourra utiliser ce programme pour toute sorte de jeux se déroulant sur 
un damier (échecs. dames anglaises. le loup et les agneaux. ete.). 


10 REM ECHIQUIER 

20 CLS 

30 INK 0,0: HORDER O:INE 1,26:INK 2,2 

40 FEN #1i,Z2:LOCATE #Ki,1,1 

JO AS=STRINGS (3,140) 

60 B#H=STRINGS (3,145) 

70 CH=STRINGS (3,131) 

80 PRINT #1," A BC DE F G H" 
SPRINT #1 

90 FOR I=i TO 8 

100 FOK Jz1il TO 8 

110 IF (I+J)/2#INT((I+J)/2) THEN 1250 

120 LOCATE SXJ+1,2XI: PRINT A$:LOCATE ZXJ 
+LLEXITIS FRINT B#H:LOCATE S3XJ+1,2XI+2: FAI 
NT C$ 

150 NEXT J 

140 FRINT #i,I:FRINT #1 

150 NEXT I 

160 GOTO 160 
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Le jeu de la fève 





REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de Jeu : réflexion (deux Joueurs). 
Difficulté du jeu : moyenne. 


LE JEU : 

Présentant une certaine analogie avec le jeu de WYTTHOF. cette version 
offre en fait + possibilités de déplacement : la position de départ est ici 
fixée en (0. 0). et pourrait éventuellement être modifiée. 

Les directions de déplacement disponibles sont : droite. bas, diagonale bas 
et droite. diagonale haut et droite. 

On joue en principe avec la règle : le premier arrivé en (9,9) a gagné. 


LE PROGRAMME : 

La ligne 60 et la boucle 1 (70-90) dessinent le terrain de jeu. 

La ligne 130 réalise le test de fin de partie. 

La ligne 180 permet d'exécuter lun des sous-programmes de déplace- 
ment. 

Chaque joueur dispose d'une fenêtre d'impression avec une couleur. qui 
est superposée au dessin du terrain de jeu. 

La ligne 140 assure le changement de joueur. 


POUR JOUER : 

On lance le programme par RUN. et le terrain de jeu s'affiche, ainsi que 
la question DIRECTION 1. 2. 3. +): les + directions proposées corres- 
pondent aux déplacements suivants : 


ee 
> ;} 
No ; 


Le Joueur Lentre son déplacement. et tape ENTER. 

Le mouvement correspondant est réalisé. puis on obuüent affichage 
JOUEUR 2 et DIRECTION. 

Le joueur 2 procède de même. et ainsi de suite. jusqu'à ce que l'un des 
joueurs arrive en (9.9) auquel cas le jeu se termine. 


<<] 


EXTENSIONS POSSIBLES : 

On peut imaginer d'introduire en début de partie des cases pièges {chacun 
essayant alors de faire venir l'autre sur l'une de ces cases). 

On peut aussi jouer avec plusieurs symboles. si possible de couleurs dif- 
férentes. déplacés simultanément, envisager des terrains de jeu triangu- 
laires. aux dimensions arbitraires. etc. 


10 REM JEU DE LA FEVE 

20 DEFINT I,X,Y 

30 CLS 

AO INK O1: INE 1,92INE 2,182 INK GS 


90 FEN #H1,2:PEN #®,1 

60 FEN SPRINT " O 1! 
7 8 9" 

70 FOK Ixl TO 9 

60 FRINT:FAINT Iy " “ 

90 NEXT I 

100 Xæ0z: Ve] 

110 J=® 

120 LOCATE HJ,SEXX+6, 2XY+ILS FRINT KJ, CHAS ( 

248+J) 

130 IF X=e9 AND YxQ9 THEN 200 

140 Jxi+J MOD % 

150 LOCATE HJ, 1,25: PRINT CHRS (20): 

160 FRINT #9, "JOUEUR'"'sgJy"e DIRECTION (1" 

sCHRS (241)3 0,215 CHARS (205): "Eu CHARS (245) 

sud CHRS (204) s")utss INPUT HJ, "MIS 

170 [æVAL (1$) 

180 ON I GOSUR 220,240,250,270 

190 GOTOQ 120 

200 LOCATE HJ, 1,23: FRINT #J,M"LE JOUEUR": 

Ji"A GAGNE..., L 

210 GOTO 210 

20 YæY+i 

230 KETURN 

240 GOSUR 220 

280 XæX-+1 

260 RETURN 

270 GOSUR 250 

280 YaæY-1l 

290 RETURN 


F3 
t4 
ES 
tn 
œ 
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Jeu de l’oie aléatoire 


REFERENCES : 
Difficulté de programmation : difficile. 
Catégorie de jeu : hasard (deux joueurs). 


Difficulté du jeu : facile. 
LE JEU : 


Le jeu reprend la très ancienne idée du jeu de l’oie, mais en v ajoutant la 
possibilité offerte par l'ordinateur de choisir au hasard les cases à pro- 
blème” 

La règle du jeu est sans grand intérêt. puisque les joueurs n'interviennent 
à aucun moment dans le déroulement de la partie. qui est entièrement 
gérée par AMSTRAD : il suffira d'appuyer sur une touche après chaque 
lancer de dé. et de regarder ce qui se passe. 


LE PROGRAMME : 

La ligne 80 permet d'appeler le sous-programme 280 à 380 qui réalise le 
Lonuole de la position des joueurs et l’affichage de cette position. Cet 
affichage sera d'ailleurs refait en cours de partie, pour tenir compte du 
déplacement réellement effectué (qui n’est pas nécessairement celut in- 
diqué par le dé). 

La ligne 90 s'occupe du changement de joueur. et la ligne 100 effectue le 
lancer de dé. 

La ligne 370 traite le cas où l'un des joueurs termine. 

La ligne 140 tire un nombre aléatoire entre O et 3. qui servira sil v a lieu 
pour de terminer le vrai dé plac ement du joueur. en envoyant dans l'un des 

sous-programmes de chance 

Les lignes 280 et 290 font avancer les pions. et les lignes 300 à 350 
redessinent à chaque affichage le terrain de jeu en entier. 


POUR JOUER : 

On lancera le jeu par REX. Le terrain de jeu est alors dessiné. puis on voit 
apparaître l'affichage JOUEUR T : 

On devra alors appuyer sur une touc hé quelc onque pour que le coup du 
joue ur numéro 1 soit pris en compte : ne pas s inquiéter du temps de 
réaction. qui pourra sembler un peu long. 

Le déplacement indiqué par les dés sera exécuté. puis au bout de quelque 
temps, un second déplacement sera éventuellement effectué : c’est le dé- 
placement *CHANCE”. On obtiendra alors l'affichage JOUEUR 2 : 

Le joueur 2 appuie à son tour sur une touche quelconque et ainsi de suite. 
Le joueur gagnant sera signalé par un affichage BRAVO en fin de partie. 
On peut aussi s'arrêter à tout moment en tapant ESC deux fois. 


EXTENSIONS POSSIBLES : 

On peut agrandir le terrain de jeu. introduire davantage d’aléas. changer 
leur nature. On pourrait aussi choisir les cases *“CHANCE” en début de 
Jeu. ajouter des affichages en conséquence. etc. 


19 REM JEU DE L'OIE ALEATOIRE 

20 DEFINT I,J,X,Y 

50 RANDOMIZE (TIME) 

40 INE O3: INE 1,8:INE 2,18:INE 3,11 

50 CLS 

60 Jr 

70 LOCATE 1,3:FRINT "  0123456789ABCDEFG 
HIJELMNOFORSTUVWXYZ" 

80 GOSUE 280 

90 Jæ1i+J MOD ? 

100 Iæ1+RNDXS 

110 FEN J+i:FRINT CHR$ (7); :LOCATE 8,14:F 
RINT "JQUEUR";J3". VOTRE COUF: "3; I 

126 FRINT TAR(1O) "AFFUYER SUR <ENTER:": 
CHRS (20) 5: INFUT "US RS 

150 GOSUE 280 

140 I=RNDXKZ 

150 Fæ1+RNDX4 

160 ON F GOSUR 180, 200,220, 260,250 

170 GOTO 80 

180 1=1+3 

190 RETURN 

200 I=-I 

210 RETURN 

220 1=2%41 

230 RETURN 

240 1=0 

250 RETURN 

260 IF J=l THEN X=RNDX30 ELSE Y=RNDX30 
270 RETURN 

280 IF J=i THEN X=X+IXC(X+1)2=35) x ((X+1) 
=0) 

290 IF J=? THEN Y=Y+IX C(Y+1)#=%5) x ((Y+1) 
#=0) 

300 FOR 1=0 TO 35 


310 LOCATE 3+I,S:PRINT " "3 

220 IF I=X THEN LOCATE S+I,S:FEN 2: FRINT 
DE PE - 

330 LOCATE S+I,7:FRINT " "3 

340 IF I=Y THEN LOCATE 3+1,7:FEN S:FRINT 
25 


350 NEXT I 

360 FOR I=i TO &OO0:NEXT I 

270 IF X=35 OR Y=355 THEN LOCATE 1,20:FRI 
NT'BRKAVO" : GOSUB 2390: END 

380 RETURN 

390 SOUND 1,478: SOUND 1,319: SOUND 1,379 
400 RETURN 
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Niveau 2 


Nom du programme 


Thèmes et particularités 





Dé truqué 


Un dé 
Visions 
421 


L'électricien fou 
La course au 20 


Musique 


Poker 


Le jeu de saute-mouton 


Lettres 

Machinamot 

Espion 

Jeu de loto 

Tirage d'un dé truqué 


Le jeu de Marienbad 


Compose 


Jour de la semaine 
Tour de cartes 


L'indésirable 


Le jeu de la vie 


À utiliser. si vous êtes malhonnête. dans 
d’autres programmes. 

Tirage d'un dé. avec graphisme. 

Un jeu sur les mots. pour l'ordinateur. 
Une simulation simplifiée. plusieurs 
Joueurs. 1 

Logique et difficile. pour un seul joueur. 
Jeu de réflexion. pour deux joueurs ou plus. 
Révisez vos notions de solfège. grâce à lor- 
dinateur. 

Une base de départ. pour mettre au point 
votre programme. 

Un jeu de réflexion. pour deux joueurs. 
Un jeu sur les mots. assez simple. 

Laissez l'ordinateur créer des vocables 
HOUVEAUX. 

Dites-lui votre amour en code, 

Gagnez sans problème. au prochain tirage. 
Révisez vos connaissances en statistiques. 
Un jeu de logique pour deux joueurs. dans 
une version étendue. 

Faire de la musique. c'est d'abord écrire... 
Profitez-en pour faire le point sur les an- 
niversaires. 

Votre ordinateur a plus d'un tour dans son 
sac. 

Vous êtes propriétaire. Arriverez-vous à 
mettre la main sur ce locataire indési- 
rable ? 

Un grand classique. en deux versions : ma- 
nuelle et automatique. 
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Dimensionnement 
d’un tableau 
Recherche d’un 
élément dans un 
tableau et dans une 
chaine 
L’instruction DATA 


L'INSTRUCTION DIM OU INSTRUCTION DE DIMEXSIONNEMENT 
D'UN TABLEAU 





Les structures de tableaux sont très couramment utilisées en program- 
mation. se révélant même indispensables dans un grand nombre de cas. 
Si vous voulez. par exemple. entrer vos recettes et dépenses pour tous les 
jours du mois ‘on supposera pour simplifier des mois de trente jours} vous 
pourriez définir 30 variables appelées PREMIER JOUR: DEUXIEME 
JOUR. ete. IPest plus facile. et plus rationnel d'utiliser une boucle L 1 
variant de 1 à 30. et une variable R (D pour les recettes. et DT pour les 
dépenses : ce faisant. vous avez. sans le savoir. utilisé une structure de 
tableau à une dimension : ceci ne pourra être admis sur AMSTRAD que si 
vous avez auparavant prévenu que vous alliez utiliser un tel tableau. en 
donnant une mstruction DIMR 30: pour les recettes. et DIMD 30) pour 
les dépenses. 


On pourrait aussi imaginer de conserver dépenses et recettes dans un méme 
tableau. en lui donnant cette fois deux dimensions : par exemple DIM RD 
(30. 2} (ou DIM RD 2. 30. Ainsi. avec DIM RD (30. 2) on pourra 
convenir que RD EL 1 représente les recettes. et RD (TE 2) les dépenses. 
Des tableaux de plus de 2 dimensions sont également possibles. 

On peut aussi concevoir des tableaux dont les éléments sont des chaînes 
de caractères. et non plus des nombres. avec 255 caractères au maximum. 


Ainsi DIM NOMS (12) réserve 12 emplacements en mémoire. pour des 
mots de 255 caractères au maximum. 


Sur AMSTRAD il n'est pas obligatoire de dimensionner un tableau qui 
contient moins de 10 éléments. 


LA RECHERCHE D'UN ELEMENT DANS UN TABLEAU :R (D 








Si l'on a un tableau à une dimension. numérique ou alphanumérique. 
défini par une instruction comme DIM R 30) où DIM N$ (20, le Ième 
élément de ce tableau est repéré par RE lou N$ (D : il sera alors mani- 
pulé exactement comme une variable ordinaire affectation. calcul. tests. 
ete). 


Ainsi INPUT CR 3) permet d'entrer à la main la valeur du 3° élément 


numérique du tableau R. PRINT R$ 15; permet l'affichage du 5° élément 
du tableau alphanumérique R$. ete. 


LA RECHERCHE D'UN ELEMENT DANS UNE CHAINE : MIDS 





Pour extraire le ème élément de la chaîne alphanumérique A$. on utilisera 


l'instruction MIDS$. 


Ainsi. si A$ = “BONJOUR”. MIDS (A$. 3%. 1 donne le caractère N: de 
plus MIDS (A$. 3. 3) donne la sous-chaîne © NJO”. 


LE TRAITEMENT DE DONNEES MULTIPLES 
INSTRUCTIONS READ. DATA RESTORE 








Pour remplir facilement un tableau. numérique ou alphanumérique. il 
sera intéressant d'utiliser des lignes D: \T A. qui contiennent les données 
inscrites les unes à la suite des autres. séparées par une virgule. 


Ainsi on pourra écrire : 
DATA LEON. JULES. 13. rue MARTIN... 
Ces données peuvent être lues dans des boucles FOR... NEXT. au moyen 


de l'instruction READ. On peut recommencer la lecture au début des D: \TA. 
à l'aide de l'instruction RESTORE. 
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Dé truqué 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de Jeu : lancer de dés. 
Difficulté du jeu : facile. 


LE JEU : 

On veut essaver de fabri iquer un dé truqué selon sa propre convenance. La 
méthode proposée ici consiste à définir au départ une probabilité de réa- 
lisation pour chaque type de tirage {soit la probabilité d'obtenir un TL un 
2. un 3. ete. que chacune de ces probabilités soit comprise entre O et Let 
que la somme de toutes les probabilités soit un nombre très voisin de 1). 


LE PROGRAMLME : 

utilise le générateur aléatoire d'AMSTRAD supposé de qualité conve- 
nable lon pourra aisément utiliser tout autre générateur. si besoin est}. La 
boucle 160-130 s'occupe de l'entrée de chacune des probabilités. avec 
vérification à chaque entrée et sur le total (ligne 100) : chaque probabilité 
est conservée dans une variable indicée E (D : ligne 80 du programme. 
Le lancer de dé truqué esteffectué à l'aide d'une autre boucle 1 (180-200). 
la ligne permettant le trucage se trouvant en 190. Un nouveau tirage 
pourra être effectué sur pression d'une touche (igne 220). 


POUR JOUER : 
Après le lancement de Fexécution par RUN. on obtient l'affichage de la 
question PROBABILITÉ DE FAIRE TL à laquelle on devra répondre par 
un nombre compris entre O et 1 Iconviendra de ne pas oublier que le 
total de toutes les probabilités entrées ne devra en aucun cas dépasser 1.1 
tolérance de 0.1 
Des messages d'erreurs pourront être affichés et le programme sera éven- 
tuellement relancé, Lorsque toutes les probabilités auront été définies. le 
premier rage sera automatiquement effectué. et il suffira de presser une 
touche quelconque pour effectuer les tirages suivants. On arrête le pro- 
gramme en tapant ESC deux fois. 


EXTENSIONS POSSIBLES : 

[sera évidemment bien tentant d'utiliser sournoisement ce petit program- 
me pour améliorer vos chances de gain dans un jeu de hasard utilisant des 
lancers de dés. On pourra alors envisager de figer les données définissant 
le dé truqué dans une variable A$. ete. On pourra aussi envisager de 
présenter les résultats correspondant à une série de lancers de dés sous une 
forme spectaculaire, qui mette le trucage en évidence... 


10 KEM DE TRUQUE 

20 DEFINT N 

50 RANDOMIZE (TIME) 

40 CLS 

30 DIM E (6) 

60 FOR Il TO 6 

70 LOCATE 25,3: FRINT CHRS& (16) : 

80 LOCATE 1,5: FRINT "FROBARILITE DE FAIR 
Ets Ts: INPUT: ME CT) 

O0 Fe&fF+E CT) 

100 IF ECI)E<0 OK ECI)D%1 OK F%1,1 THEN 24 
(a) 

110 LOCATE 6KI-5, 10: PRINT "DEMXT 

120 LOCATE G6XI-5,12:FRINT E CT) 

130 NEXT I 

140 IF FéO0,9 THEN FRINT CHARS (7) ; : RUN 

150 LOCATE 1,3:PRINT CHRS& (18); 

160 FOK Iæ1 TO SOOINEXT I 

170 Nel+RNDXE 

180 FOR Iei TO 6 

190 IF N&I AND RND#ECI) THEN 170 

200 NEXT I 

210 LOCATE 15, 17:FAFER 2APFEN GFRINT "TI 
RAGE s'UiNs: PAPER O:FEN 1: GOSUR 290 

260 LOCATE 5,26: INPUT "FAIRE ENTER: FOU 
R UN AUTRE TIRAGE'",RS 

230 GOTO 170 

240 LOCATE 10,25: FPAFER SPRINT CHKS$ (7) 35" 
IMPOSSIBLE: Ocepéml"ss FAFER O 

2930 PFæF-E (TI) 

280 FOR J=1i TO 1S00:NEXT J 

270 LOCATE 10,2S:PFRINT STRINGS(19,22) 3 
280 GOTO 70 

290 SOUND 1,478, 20: SOUND 1,#19, 20: SOUND 
1,379, 20: RETURN 
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Un dé 





REFERENCES : 

Difficulté de programmation : facile. 

Catégorie de jeu : tirage d'un dé (avec graphisme). 
Difficulté du jeu : aucune. 


LE JEU : 

Le programme propose simplement le lancer d'un dé aléatoire. et sa re- 
présentation graphique en grand format. 

I pourra facilement être itlisée ‘n sous-programme, dans tout type de Jeux 
faisant appel au lancer d'un ou de plusieurs dés. 


LE PROGRAMME : 

La ligne 50 utilise le générateur aléatoire de FAMSTRAD pour tirer un 
nombre de 1 à 6. 

La boucle J (70-90) dessine les bords du dé. 

Les lignes 120 à 179 sont utilisées pour le dessin des points. 

Les lignes 180 et 190 permettront le cas échéant de refaire un tirage. 


POUR JOUER : 

Lancer le programme par RUN. 

On entre un entier pour initialiser le générateur. et un dé s'affiche. en 
couleurs. et en grand format. 


A la question : AUTRE TIRAGE (O/N) on répond O. pour relancer le dé. 


EXTENSIONS POSSIBLES : 
On pourra introduire une petite musique agrémentant chaque lancer. faire 
défiler les points comme si le dé roulait sur une table. ete. 


10 KEM UN DE 

20 RANDOMIZE(TIME) 

40 CLS 

40 CæINT (RNDX27) 2 INK 1,C+(Cx1) 

J0 A=INT(RNDX6-+ 1) 

60 LOCATE 12,S:FRINT CHRS (150): STRINGS (1 
1,154); CHRS (156) 

79 FOR JxO TO 10 

80 LOCATE 12,6+J2:FRINT CHKS& (149) :LOCATE 

24, 6+J:FRINT CHK#&(149) 

YO NEXT J 

100 LOCATE 12,17:FPRINT CHRS$S (147) ; STRINGS 
(11,154): CHARS (1535) 

110 RESTORE 1000:FOR I=1 TO %:KREAD N: SOU 
ND I,N:NEXT I 

120 IF A1 THEN LOCATE 15,8:FRINT CHR$#( 
231) 

150 IF A%=4 THEN LOCATE 21,S:FRINT CHRKS$( 
231) 

140 IF Àxé THEN LOCATE 15,11: PRINT CHRS ( 
231): LOCATE ŒT, LIL: PRINT CHR$&(2351) 

150 IF À MOD ? THEN LOCATE 18,11:FRINT C 
HR (231) 

160 IF Aï=4 THEN LOCATE 15,14:FRINT CHKS& 
(251) 

170 IF A1 THEN LOCATE Z21,14:FRINT CHARS 
(251) 

180 FEN Z:LOCATE 1,25: INFUT "AUTRE TIRAG 
E (O/N)"'IRS 

190 IF UFFERS (LEFTS(R#&,1))="0Q0" THEN FEN 

1: GOTO 430 

1000 DATA 478,3519,3579 
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Visions 





REFERENCES : 
Difficulté de programmation : facile. 
Catégorie de jeu : dessin. 


Difficulté du jeu : facile. 
LE JEU : 


AMSTRAD vous permet. pour la première fois. d'entrer dans son intimité 
en vous laissant entrevoir sa propre re présentation du monde ! Vous allez. 
en effet. lui proposer des mots. n importe lesquels. et il va vous répondre 
en VOUS proposant une re présentation graphique de ce que re prése nte ce 
mot pour lui. Le jeu sera beaucoup plus amusant si vous le pratiquez à 
plusieurs. et vous pourrez quelquefois avoir des surprises 


LE PROGRAMME : 

Une boucle F 140-120) se charge de réaliser les dessins. 

La ligne 50 permet de transformer en nombre chaque lettre du mot entré 
au début {ligne 30. Ce nombre sera ensuite traduit en base 2 par une 
boucle J (lignes 60 à 110) : selon le résultat de cette transformation. un 
point sera imprimé. où non (ligne 90). 


POUR JOUER : 

On débute l'exécution du programme par RUN. ce qui amène l'affichage 
de la question QUEL DESSIN. On répond en entrant un mot quelconque 
qui sera transformé en dessin par AMSTRAD dès que l'on aura frappé 
ENTER. 

Pour recommencer. il suffira de frapper une touche quelconque. et ESC 
deux fois pour finir. 


EXTENSIONS POSSIBLES : 

La même idée peut être reprise en introduisant des éléments de symétrie 
dans les dessins. en mettant plusieurs couleurs. On peut aussi imaginer de 
coder par cette méthode un certain nombre de dessins. que l'on Hodue 
rait au fur et à mesure dans la machine et l'on pourra alors créer un jeu 
dans lequel AMSTRAD deviendra de plus en plus savant. On peut aussi 
réaliser un Jeu à deux joueurs dans lequel AMSTRAD vous demande de 
trouver le mot qui correspond à un certain dessin. ete. 





10 REM VISITONS 

20 CLS 

30 INFUT'QUEL DESSIN s"5RS$ 
40 FOR Iæi TO LEN(CR#) 

HO Ne9KkASC(MIDS (HS, T,1))-540 
60 Jsl 

70 SxN/2-TNTCN/2) 

60 N&INT (N/4) 

QQ IF SE%0 THEN LOCATE J+1S, I+S: FAFER 2: 
FARINT OM UE FAFER © 

100 JæJ+1 

110 IF J£10 THEN 70 

120 NEXT IT 


130 LOCATE 11,2S4INFUT "AFFUYER SUR <ENT 


EF, R# 
140 F&INT(RNDK27) 5 Fefî+ (Fel)sINE A F 
190 GOTO 20 
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421 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : lancer de dés. 
Difficulté du jeu : moyenne. 


LE JEU 

Chacun des joueurs devra. à son tour. lancer 3 dés. et peut ensuite choisir. 
sur les deux coups suivants. S'il désire relancer où non 1. 2 ou 3 dés. Il 
marque alors un score correspondant au nombre indiqué par les dés. sui- 
vant les règles choisies. et le joueur suivant procède de la même manière. 


LE PROGRAMME : 

Le nombre de joueurs est tout d'abord entré en ligne 40. 

La ligne 130 affiche le numéro de joueur et le nombre d'essais déjà effec- 
tués. 

Un sous-programme placé en ligne 4000. utilisé 3 fois dans la boucle ] 
200-250. réalise Le lancer de dés. 

Les retirages sont effectués par les lignes 1000, 2000 et 3000. 

La variable R$ gère les 2° et 3" tirages. L'impression du résultat est réalisée 
dans tous les cas par les lignes 140-150. 

Les tests pour le nombre d'essais et pour le changement de joueur sont 
effectués aux lignes 200 et 280. 


POUR JOUER : 

On lance l'exécution du programme par RUN ce qui conduit à Faffichage 
NOMBRE DE JOUEURS. On entre le nombre de joueurs. et lon tape 
ENTER. L'écran s'efface et affiche JOUEUR NUMERO 1. ESSAI K. PAR- 
TE P. ainsi que le tirage réalisé. et les noms des dés (A. B. C) 

Si l'on ne désire pas re foire de tirage. il suffit de frapper ENT É R. La main 
passe alors au Joueur suivant. 

Pour effectuer un autre tirage. 1l suffit de taper le nom du ou des dés à 
reurer. et de faire ENTER : par exemple. pour retirer A et C on tapera AC 
suivi de ENTER. 


Les joueurs suivants procéderont de la même façon. 


EXTENSIONS POSSIBLES : 

La plus € évidente consiste à assurer la gestion des résultats des } joueurs. en 
se référant aux règles de gain usuelles dus jeu du 421. On pourra envisager 
l'affichage après chaque : tour d'un tableau récapitulant les résultats des 
Joueurs. 

On pourra aussi améliorer l'affichage des dés (se référer aux divers pro- 
grammes d'affichage des dés se trouvant dans le même ouvrage). 





10 KEM 421 
20 KANDOMIZE(TIME) 
30 INE 0,0 
40 INFUT "NOMBRE DE JOUEURS 2'"5N 
50 Fall 
&Q Izl 
70 KH=OQ 
80 CLS 
90 R$="AEC" 
100 GOTO 200 
110 KHzk+1 
120 LOCATE 17,1:FEN GS:FAFER Le FRINT "42 
1": FAFER 0 
30 INK 2,2+1 MOD S6:FEN 2:LOCATE 1,4:FR 
INT "JOUEUR NUMERO'"'3:1I3"- ESSAI'"'s;HS;"-— FAR 
TIE'":F 
140 LOCATE 7,7:FRINT A:LOCATE 17,7:FRINT 
B:LOCATE 27,7:PRINT C:PEN 1 
150 LOCATE 8,9:FRINT'A":LOCATE 18,9:FRIN 
T "E'sLOCATE 28,9:PRINT "C" 
160 R$='"":LOCATE 7,14: PRINT CHR$#& (20): 
170 LOCATE 1,14:INFUT "ARC : "3 RS$ 
180 IF K#$="" THEN 270 
190 K#=R$+'"'DDD" 
200 FOR J=1i TO 3 
210 GOSUEH 4000 
220 X$=MIDS(R$,J,1) 
230 X=ASC(XH)-64:IF X£0O THEN X=4 
240 ON X GOSUR 1000, 2000, 3000 
250 NEXT J 
260 IF KHS3 THEN 110 
270 I=Il+i 
280 IF IS=N THEN 70 
290 F=P+i 
300 GOTO 60 
1000 A=D 
1010 RETURN 
2000 EB=D 
2010 RETURN 
3000 CED 
3010 RETURN 
4000 D=1+INT(RNDX6) 
4010 RETURN 
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L’électricien fou 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : solitaire. 

Difficulté du jeu : assez difficile. 


LE JEU : 

Un immeuble comportant 10 fenêtres. numérotées de 0 à 9. apparaît sur 
l'écran. Le joueur devra à chaque essai manœuvrer Fun des interrupteurs. 
en mdiquant son numéro (de O0 à 9 

En prince pe. la fenétre corre spondante devrait s'éteindre. mais ilest aussi 
possible qu'une autre s'allume lou S'éteigne). IFs'agit. bien sûr. d'essayer 
d'obtenir Fextinetion des 10 fenêtres. avec le moins ; possible d'essais. 


LE PROGRAMLME : 

Une table A en ligne 30. contiendra l'état (allumé ou éteint) des 10 fe- 
nêtres. 

La boucle 1150-70) et l'autre boucle (90-140) dessinent l'immeuble dans 
son état initial. 

La ligne 150 regarde si tout est éteint. auquel cas Fon ira en ligne 250 
afficher le nombre d'essais. 

La ligne 160 atte a Pindication de l'interrupteur à manœuvrer. 

Les lignes 170 à 230 définissent le résultat de la manœuvre. 


POUR JOUER : 

RUN provoque l'affichage de l'immeuble. avec toutes les fenêtres allu- 
mées. 

A la question INTERRUPTEUR NUMERO. on répond en indiquant le 
numéro de Finterrupteur à manœuvrer. suivi de ENTER. 

Le résultat de la manœuvre est alors affiché sur l'écran (des fenêtres s'al- 
lument ou S'éteignent. 

On continue ainsi jusqu'à ce que toutes les fenêtres soient éteintes. et l'on 
obtient alors l'affichage du nombre d'essais réalisés. 


EXTENSIONS POSSIBLES : 

On pourra envisager un graphisme très amélioré avec st possible lutilisa- 
tion de la couleur. On pourra aussi définir un jeu à deux joueurs. augmen- 
ter Le nombre de fenêtres. modifier la formule définissant l allumage ou 
l'extinction. 


19 KEM L'ELECTRICIEN FOU 
20 KANDOMIZE(TIME) 
30 DIM A(10) 

40 CLS 

90 FOR Iæ1i TO 7 
60 FAFER S:LOCATE 10,I:FRINT STRINGS(21, 
32) : FAFER O0 


70 


NEXT IT 


80 T=0 

90 FOR Ixi TO 10 
100 TaT+A(T) 

110 LOCATE ZXI+9,4:FRINT " " 

IF ACI)=0 THEN LOCATE ZX1+9,4:FRINT 
CHARS (224) 
130 FAFER Z:FEN Q:LOCATE £XI+8,6:FRINT I 
1: FAFER O:FEN 1 


120 


140 
150 


NEXT I 
IF Tæ10 THEN 250 


160 FEN GS:LOCATE 1,14: FRINT CHKS& (7) ; CHKS& 


(20) 42 INFUT 


N 1 
170 
180 
190 


NeN+1 
Me: M+ 1 
A (ND =1-—A CN) 


UINTERRUPFTEUR NUMERO 3 MiNsFE 


200 Re TAN CRND+N/RND-N) +8 TN CRND/N) + I GXST 
N'(GXN) 
NE&INT  CLOX (KR INT CR) )) 


210 
220 
250 
240 
250 


AIS 


IF N=O THEN N&INT 


CKRNDX10+1) 


IF ACN)=1 THEN A CN) =0:GOTO «00 


A(N)=1:G0TO 80 
LOCATE 1,14:FRINT 


"TROUVE EN'"s:MS "ESS 
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La course au 20 





REFERENCES : 

Difficulté de programmation : facile. 

Catégorie de jeu : logique (deux joueurs. ou plus) 
Difficulté du jeu : moyenne. 


LE JEU : 

ILest possible d'imaginer pour ce jeu diverses règles. et nous n'avons retenu 
ici que la règle usuelle pour deux joueurs, qui en fait un jeu apparenté aux 
jeux de déplacement. ou d’allumettes : 4 tas de 29 étoiles vont apparaître 
en début de partie. et chaque joueur peut prendre autant d'étoiles qu'il le 
désire ; mais ceci dans un seul tas à la fois. Celui qui prend la dernière 
étoile est considéré comme perdant. 


LE PROGRAMME : 

La boucle F (30-50) dessine 4 rangées de 29 étoiles. 

La variable F. dimensionnée en ligne 80, servira à enregistrer le nombre 
d'étoiles prises dans chaque rangée. 

La variable T contiendra le nombre total d'étoiles enlevées (ligne 70). 

La ligne 140 contrôle qu'il reste suffisamment d'étoiles sur la ligne indi- 
quée. 

La boucle 1 (150-180) supprime les étoiles : la ligne 220 teste la fin de 
partie. 


POUR JOUER : 

Lancer le programme par RUN: le terrain de jeu s'affiche. puis les ins- 
criptions JOUEUR T1 et LIGNE. puis CASES. On répond en entrant un 
numéro de ligne (entre Let +) suivi de ENTER. et le nombre d'étoiles à 
enlever suivi de ENTER. Les étoiles sont alors supprimées, et c’est au tour 
du deuxième Joueur. 

La partie se termine. lorsque la dernière étoile a été enlevée, par l'affichage 
du joueur gagnant. 


EXTENSIONS POSSIBLES : 

Outre une amélioration de la qualité du graphisme et des contrôles. de 
nombreuses variantes sont envisageables, en modifiant si besoin est. les 
règles de départ : on peut autoriser l'enlèvement d’un nombre impair 
d'étoiles seulement, ou alterner pair et impair, ou tirer au hasard le nom- 
bre à enlever. ou encore jouer à plusieurs. 


10 REM COURSE AU 20 

20 CLS: FEN Ë 

20 FOK Ii TO 4 

40 LOCATE L'2XIS PRINT Ti STRINGS (20, 256) 
30 NEXT I 

60 FEN 1! 

70 T=0 

80 DIM F4) 

90 Hz 

100 LOCATE 1, 12: PEN B:FRINT CHRS$ (20) 5 "JO 
UE UF "Os E 

L10 PRINT: INPUT MLIGNE s'il 

120 IF L£i OR Lr4 THEN 100 

LEO FRINT: INPUT MCASES "530 

140 IF C+F (CL) 520 OK C£e0 THEN 100 

159 FOR Jæl TO C 

160 LOCATE Z4ef (Lo), 2XL: PRINT "Us CHKS ( 
7)3 

170 FOR TEæl TO ZOO:NEXT TE 

180 NEXT J 

190 TeT+C 

200 FCL)E&F (Lo) +C 

210 Hæl+E MOD 2? 

IF T£80 THEN 100 

LOCATE 12,28: PAFER GSUFEN BeFRINT "LE 
JOUEUR" : EE: "GAGNE": SOUND 1,476: SOUND 1,5 
19: SOUND 1,79 

240 GOTO 240 
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Musique 





REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : jeu éducatif. 
Difficulté du jeu : moyenne. 


LE JEU : 

Il se présente comme un exercice d'apprentissage du solfège : l'appareil 
annonce une note {en clé de sol). suivie de la mention GRAVE ou AIGUE, 
selon sa place sur la portée. Il faudra répondre en indiquant sur quelle 
ligne la note sera affichée. 

La note est alors dessinée sur la portée, suivie d’un message BRAVO ou 
PERDU. selon que l'on avait trouvé juste ou non. 


LE PROGRAMME : 

La boucle 1 (60-80) dessine la portée. Une deuxième boucle [ (99-120) 
affiche les numéros des lignes. 

La ligne 130 définit le nom des notes, et la ligne 140 réalise le tirage 
aléatoire d'une note. 

Le nom de la note est calculé à la ligne 150 et il est affiché par la ligne 
160. suivi de la mention GRAVE ou AIGUE, selon le cas. 

La réponse sera entrée en ligne 180. 

La ligne 190 S'occupe du décodage de la réponse. 

Les lignes 200 à 210 dessinent la note. 

La ligne 230 regarde si lon a gagné ou perdu et affiche le message corres- 
pondant. 

La ligne 240 permet de faire un nouvel essar. 


POUR JOUER : 

On lance le programme par RUN. 

On obtient alors l'affichage de la portée. ainsi que le nom de la note à 
placer et la question NUMERO DE LA LIGNE. 

On répond en donnant un numéro de ligne (de 1 à E) suivi de ENTER. 
La note est alors dessinée et le message BRAVO ou PERDU apparaît. dans 
ce cas, à l'écran. 

On doit taper une touche quelconque pour continuer. et s'arrêter en tapant 
ESC deux fois. 


EXTENSIONS POSSIBLES : 
On peut étendre à une autre clé que la clé de sol. on peut introduire de la 
couleur. des sons. ete. 


10 REM MUSIQUE 

20 DEFINT X 

30 KANDOMIZE (TIME) 

40 INK O,Z22sINE 1,72INE 2,24: INF S,15 

JO CLS 

60 FOR I=1 TO 5 

70 LOCATE 4,Z2XI+4: PRINT STRINGS#(31, 154) 
80 NEXT I 

90 FOR I=1i TO 14 

100 LOCATE 1,1+2 

110 IF I=9 THEN FRINT I ELSE FKRINT " "3 
CHRS& (I1+55) 

120 NEXT I 

150 N$="SI LA SOLFA MI RE DO " 

140 X=1+RNDX13 

150 T=(X-1) MOD 7 

160 LOCATE 1,18:FRINT "NOTE "3MIDS(NS,:3X 
T+1,3): 

170 IF X2=7 THEN FRINT " AIGUE'" ELSE FKRI 
NT " GRAVE" 

180 PRINT: INPUT "NUMERO DE LA LIGNE sM"sL 
$ 

190 La=- (ASC (LS) -48) x (L$<"s:")- (ASC (LE) -SS 
)X(Lhæ="A") 

200 PEN S:LOCATE 18, X:PRINT CHR$ (22) +CHK 
C1): CHR#& (211) 3; CHRS# (8) ; CHR (205) ; CHRS (6) 
sCHKS$ (195) 

210 LOCATE 18, X+1: FRINT CHR$ (211); CHKS (8 
)3CHRS (193) :LOCATE 17, X+2: FRINT CHR (143 
):CHRS (211): CHRS (22) +CHRS (CO) SIFEN 1 

220 LOCATE 18,24 

230 FAFER Z:PFEN 2:1F LeX THEN PRINT "ERA 
VO"; ELSE FKRINT "FERDU'"; 

240 PAFER O:FEN 1:LOCATE S,25$: INPUT "PRE 
SSER <ENTER*+ FOUR CONTINUER"; R#:GOTO 50 
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Poker 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de Jeu : jeu contre AMSTRAD. 
Difficulté du j jeu : facile. 


LE JEU : 

C'est une simulation d'une partie de poker traditionnelle. effectuée avec 
un jeu de 32 cartes. dans laquelle le joueur aura. pour partenaire. AMS- 
TRAD. 

Le joueur recevra 5 cartes. repérées par des numéros de 1 à 5, et pourra 
décider de changer certaines cartes en annonçant celles qu'il écarte. Sa 
nouvelle donne sera alors affichée. et c’est ensuite au tour de AMSTRAD 
de jouer. 


LE PROGRAMME : 

Les lignes 50 et 60 définissent les cartes. Une variable N est dimensionnée 
en ligne 40. pour recevoir 19 cartes Joueur et 5 cartes AMSTRAD. 

Le tirage sera effectué par une boucle 1 (80-140) et le contrôle par une 
boucle J (110-130). 

L'affichage des cartes est réalisé par le sous-programme 260-370. 

Une autre boucle 1 (190-210) réalise le deuxième tirage du Joueur, la ligne 
240 permettant le deuxième affichage, et la boucle 1 (269-330) où l'on 
entre directement après. réalisera l'affichage du jeu machine. 


POUR JOUER : 

L'ordre RUN lance l'exécution du programme, et les 5 premières cartes 
du joueur sont alors affichées. 

A la question CARTES REFUSEES, le joueur peut répondre Ÿ suivi de 
ENTER s'il veut arrêter la partie. Pour jouer, il répondra simplement 
ENTER s'il s'estime servi. ou il entrera les numéros des cartes qu'il refuse 
suivis de ENTER. 

Par exemple. s'il tape 235 et ENTER, son nouveau jeu conservera les 
cartes 1 et +. Son jeu sera alors affiché ainsi que celui de AMSTRAD, ce 
dernier n'ayant pas. dans ce programme, la possibilité de reprendre des 
cartes. 

Il suffira ensuite de taper une touche quelconque pour démarrer une autre 
partie. 


EXTENSIONS POSSIBLES : 


Elles seront, bien sûr, très nombreuses, depuis un affichage graphique en 
couleur des cartes jusqu’à l'amélioration du j eu de AMSTRAD, l'intro- 


-duction des règles sur les paris et même, pourquoi pas, des possibilités de 


bluff. 


10 REM FOKER 

20 RANDOMIZE(TIME) 

30 INK OR: INK L,21INK 2,6: INK 3,0 

40 DIM N(33 

90 V$="7 8 9 10VADARKOAS" 

60 CHECHRS (226) +CHRS (227) +CHRE (228) +CHRS 
(229) 

70 CLS 

80 FOR Izi TO 15 

90 NCI)=INT(RNDXE2) 

100 IF Izi THEN 140 

110 FOR J=i TO I-1 

120 IF N(ID=N(J) THEN 90 

150 NEXT J 

140 NEXT I 

150 K=OQ:F=0 

160 LOCATE 1,12:FRINT "CARTES REFUSEES" 
170 GOSUR 260 

180 IF R$="O" THEN END 

190 FOR I=1 TO MIN (S,LENCRS#)) 

200 N(VAL(MIDS(R#,1,1)))=N(1+5) 

210 NEXT I 

220 CLS 

230 Pal 

240 GOSUB 260 

250 Kek+10 

260 FOR I1=1 TO S 

270 C=INTINC(I+H)/6) 

280 F=eN(I+H) MOD 8 

290 R$=MIDS(V#S,2XF+1,2) 

300 LOCATE 7XI-Z2,K+1:PRINT I 

310 LOCATE 7XI-3S,K+S:PRINT R$s'": "3: FEN 
(3+(Cz1 OR C=2)): PRINT MID$(C#,C+1,1)3:F 
EN 1 

320 LOCATE 7XI-35,K+4:PRINT STRINGS (5, 208 
}5 

330 NEXT 

340 IF Fzil THEN F=O0:RETURN 

350 IF KH=10 THEN LOCATE 6,25: INPUT "FAIR 
E <ENTER®* FOUR CONTINUER" ,RS#&:GOTO 70 
360 LOCATE 18,12: INPUT R$ 

370 RETURN 
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Le jeu de saute- 
mouton 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de Jeu : réflexion (2 Joueurs). 
Difficulté du jeu : facile. 


LE JEU : 

Bien que l'idée en soit très simple. il ne sera pas forcément évident de 
découvrir une stratégie convenable, On dispose de 3 moutons bleus et de 
3 moutons rouges. représentés par des symboles graphiques, qui occupent 
8 cases : les moutons peuvent se déplac er d’une case à une case libre. 
Plusieurs règles pourront intervenir, selon votre propre estimation de l'in- 
térêt de telle ou telle : soit l'on contraint les moutons à se placer sur la 
première case disponible, en sautant éventuellement par-dessus les mou- 
tons adverses, soit on leur laisse choisir leur case d'arrivée, ce qui peut 
rendre les parties interminables. à vous de choisir. 


LE PROGRAMME : 

La boucle 1 (70-100) initialise une table A (D, qui contient les positions 
des moutons. La boucle 1 (120-170) dessine le terrain de jeu et les mou- 
tons. 

Les lignes 190 et 210 S'occupent du texte et des entrées. 

La fenêtre # 1. définie en ligne 50. sert à préserver le dessin du terrain de 
jeu pendant la saisie en ligne 210. 

Les lignes 220 et 230 contrôlent la validité du coup. Le changement de 
joueur est réalisé en ligne 260, 


POUR JOUER : 

On commence l'exécution du programme par RUN. On obtient alors un 
affichage JOUEUR L. qui indique le numéro du joueur, suivi de la question 
DEBUT. FIN. 

On répond en indiquant le numéro du pion à déplacer suivi de ENTER. 
puis le numéro de la case d'arrivée, suivi de ENTER. 

Le déplacement est alors réalisé : puis le deuxième joueur procède de la 
même façon. Le gagnant est en principe celui qui réussit à placer ses trois 
moutons côte à côte sur les emplacements initialement occupés par l'ad- 

versaire. 


EXTENSIONS POSSIBLES : 

On commencera par rajouter un contrôle du joueur gagnant. 

On peut également améliorer la présentation en dessinant de vrais mou- 
tons, rendre le jeu plus attractif en les numérotant, et en imposant un 
certain ordre à l’arrivée. 

Enfin. on pourra définir une stratégie pour l'ordinateur, en figeant les 
règles. 


19 REM LE JEU DE SAUTE-MOUTON 

80 CLS 

20 INÉ OQ,O92:INE SZ 

40 DIM A(8) 

50 WINDOW #1,1,40,153,15 

60 A(1)=0:A(8) #0 

70 FOR Izil TO € 

80 ACI+1)=1 

90Q A(I+4)z=-1 

100 NEXT I 

110 Hal 

120 FOK Ii TO 8 

130 LOCATE AXI,S:FEN L:PKRINT I 

140 LOCATE 4XI+1,6:PFRINT " " 

150 IF ACI)æ1 THEN LOCATE A4XI+1,6:FEN 2: 
FAINT CHKS& (189) 

160 IF ACI)=-1 THEN LOCATE 4XI+1,6:FEN © 
sFRINT CHR#& (191) 

170 NEXT I 

180 Jæl-(Hz=-1) 

190 LOCATE l,11:FEN J+1:FRINT "IJQUEUR" 3:79 
RUN 

200 WINDOW SWAF O,1:FEN J+1 

210 INFUT "DEBUT,FIN: "SDF 

220 IF DSi OK Dr6 OK F£l OK F:8 THEN 210 
230 IF ACD)ESH OK ACF)E:0 THEN #10 

240 A(D)#0 

2930 A(F)E=H 

260 Hzæ-H 

270 WINDOW SWAF 1,0:G0T0 120 
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Lettres 





REFERENCES : 

Difficulté de programmation : : facile. 
Catégorie de ] jeu : réflexion (2 Joueurs). 
Difficulté du jeu : moyenne. 


LE JEU : 

La règle est fortement inspirée d'un jeu de lettres très connu en France. 

pratiqué notamment dans une émission télévisée (les chiffres et les lettres). 

AMSTRAD choisit au hasard un certain nombre de symboles (voyelles et 

consonnes) dans l'alphabet latin. et chacun des joueurs devra indiquer la 
longueur du mot qu'il a réussi à obtenir (l’appareil ne vérifiera pas si le 
mot est correct !). 

Le score total de chaque joueur est affiché ensuite. 


LE PROGRAMME : 

La boucle L (90-120) choisit dans l'alphabet entre 7 et 12 lettres, en 
fonction de la variable aléatoire L. tirée en ligne 60. Pour éviter d’avoir 
trop de consonnes. on utilise en ligne 110 une petite astuce, qui consiste à 
refaire au hasard un tirage dans la table A$. contenant des voyelles (on 
peut en avoir plus ou moins en utilisant d’autres RND). 

La boucle 130-170 demande à chacun des joueurs la longueur de son mot. 
Les lignes 180 et 190 comparent les résultats et totalisent le score de 
chaque joueur. affiché par les lignes 200 et 210. 


POUR JOUER : 

On lance l'exécution du jeu avec RUN. 

Les lettres sont alors affichées. puis la question JOUEUR 1 LONGUEUR 
à laquelle le premier joueur répond en donnant la longueur du mot qu'il a 
obtenu (l'autre joueur devra toutefois vérifier si le mot est correct) : puis 
le joueur 2 fera de même et le score de chaque joueur sera alors affiché. 
Pour continuer la partie. il suffira d’appuver sur une touche quelconque. 
On devra faire ESC deux fois pour finir. 


EXTENSIONS POSSIBLES : 

On pourra bien entendu songer à introduire une temporisation avant de 
demander leurs réponses aux Joueurs. 

On pourra aussi entrer non point la longueur du mot, mais le mot lui- 
même. l'adversaire devant alors répondre à la question CORRECT OÙ 
NON ? On peut aussi étendre le jeu à plus de deux joueurs. Et pourquoi 
ne pas essaver de définir un jeu contre AMSTRAD. auquel on aurait au- 
paravant entré une liste de mots assez longue, dont il afficherait les lettres 
dans le désordre. avec éventuellement quelques lettres de complément 
choisies au hasard ? 


19 RENM LETTRES 

20 RANDOMIZE(TIME) 

320 DEFINT L 

40 SO: Jæ(0 

90 CLS 

60 LeRNDXS+7 

70 A$="AEIQUEA" 

80 LOCATE 1,6:FRINT "LETTRES 2" 

90 FOR Ii TO L 

100 LOCATE 8B+2XI1,6:FRINT CHARS (INT (RND*X26 
+65) ) 

110 IF RND#O0,4 THEN LOCATE S+2X17, 6: FRINT 
MID$ (A%, INT (RNDX7+1),1) 

120 NEXT I 

130 Ii 

140 LOCATE 1,6+4XI:FEN I+il:FRINT "JQOUEUR 


“sis s INPUT "- LONGUEUR "SL: FEN 1 


150 IF Il 
160 I=I+i 

170 IF 123 
180 S=S+(F 
190 JeJ+(L 


THEN FL 


THEN 140 
AND F':L) 
AND L:F) 


200 LOCATE 1,18:FRINT "SCORE -— 

"ss PEN 2sPRINT S3:FEN 1 

210 FRINT "JOUEUR ZsM"s PEN SG: PRINT J:FEN 
1 

220 LOCATE S5,25:FAFER 3: INPUT MTAFER £EN 

TER FOUR CONTINUER"; R#:FAFER © 

230 GOTO 50 


JOUEUR 1: 
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Machinamot 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de Jeu : jeu de hasard (sur des mots). 
Difficulté du jeu : aucune. 


LE JEU : 

Ce très court programme permet à votre AMSTRAD de faire la démons- 
tration de ses capacités à manipuler des chaînes de caractères : on part 
simplement d'un préfixe et d'un suffixe d'origine grecque. que lon va 
assembler au hasard. on tombera bien sûr. de temps à autre. sur des mots 
absurdes où même légérement équivoques. 

Un nouveau mot est ont *ctionné à € haque essai, mais il est possible d'ob- 
tenir plusieurs fois le même mot. 


LE PROGRAMME : 

Deux variables A$ et B$ sont dimensionnées à 14 en ligne 69 et 70 : l'une 
contiendra les préfixes. l'autre les suffixes (si lon désire rajouter des pos- 
sibilités. 1l suffira de modifier cette limitation à 14). 

La boucle (80-100) lit les lignes DATA (180-200) concernant les pré- 
fixes suivis des suffixes. 

La ligne 110 effectue le choix d'un préfixe au hasard. 

La ligne 120 effectue le choix d'un suffixe au hasard. 

Le mot obtenu en ligne 130 est affiché par la ligne 140. puis on recom- 
mence (ligne 150. 

La boucle WHILE/WEND en 169 provoque une attente qui utilise l'hor- 
loge interne (TIME) d'AMSTRAD. 


POUR JO ER : 

Lancer l'exécution du programme par RUN. Un premier mot sera immé- 
diatement affiché. puis un nouveau mot sera affiché à la suite du précé- 
dent. 

Taper ESC deux fois pour sortir du programme. 


EXTENSIONS POSSIBLES : 

On pourra très facilement augmenter la liste des mots disponibles. 

On pourra aussi utiliser un procédé analogue pour faire confectionner des 
phrases à l'ordinateur. lui faire inventer des poèmes. etc. On pourra aussi 
transformer le programme initial en un jeu de société qui consisterait. par 
exemple. à prendre des paris sur le prochain mot qui va apparaître. Et 
confier. éventuellement. la gestion des paris à votre AMSTRAD... 


10 
20 
30 
40) 
TA 
60 
70 
SIe 
PQ 


REM MACHINAMOT 
RANDOMIZE (TIME) 
DEFINT T,J,F 
MODE © 

CLS 

DIM A$&(14) 

DIM H#(14) 

FOR I=0 TO 14 
READ A$(I),H#(I) 


100 NEXT I 


110 
120 
LEO 
140 
150 
160 
170 
180 
HOE 
190 
UGE: 
200 
NE 


I FRND *X 1 4 

J=RND%* 14 

CéeAS (T)+EH$ (17) 

Fa l+RNDX 12: FEN FIFRINT C$ 

X=TIME 

WHILE TIME-X4100:WEND 

GOTO 110 

DATA ANDKO,CKRATE, COSMO, FHILE, MICKO, F 
EE, HELIO, TROFE, SEX0, GYNE, STEREO, MANE 
DATA FALEO, NAUTE, MACRO, FHAGE, HYDKO, F 
n STENO, FATHE, FATHO, CARDE, OLEO, DERME 
DATA MYTHO, SCOFE, HOMEO, VORE,, OCTO, FHO 
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Espion 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : jeu de réflexion. 
Difficulté du jeu : facile. 


LE JEU : 

Le programme peut servir simultanément de codeur et de décodeur de 
message secret. suivant une méthode très facile à mettre en œuvre sur ce 
tvpe d'appareil. 

Un petit générateur aléatoire situé en fin de programme est utilisé pour 
modifier de façon arbitraire chaque lettre du message : on devra bien 
veiller à utiliser toujours le même nombre (novau) pour commencer le 
codage ou le décodage de deux messages identiques. 


LE PROGRAMME : 

Le novau initial (qui sera un entier quelconque) est entré en ligne 30 : le 
message est entré à la ligne 50. 

La ligne 60 permet de choisir entre les options de codage et de décodage. 
La boucle [ (80-150) est utilisée soit pour effectuer le codage. soit pour 
effectuer le décodage. 

La ligne 100 appelle le générateur aléatoire. 

La ligne 110 réalise la transposition des lettres. 

Les lignes 129 et 130 vérifient que l’on reste bien dans les limites autori- 
sées. 

Les résultats seront imprimés par la ligne 160. 

Les lignes 1000 et 1930 contiennent le générateur. 


POUR JOUER : 

Lancer le programme par RUN. 

Entrer ensuite un entier N qui servira de noyau pour le générateur (il 
faudra le retenir pour le décodage). 

Puis taper le message. suivi de ENTER. 

Choisir l'option € pour CODER. et l'option D pour DECODER. et taper 
ENTER. 


Le message codé ou décodé. selon le cas. sera alors affiché. 


EXTENSIONS POSSIBLES : 

On pourra étendre le codage à d’autres signes que les lettres de l'alphabet. 
utiliser éventuellement plusieurs générateurs. introduire dans le message 
un codage du ou des nombres avant servi de générateurs. etc. 


10 
20 
30 
40 
30 
60 
NT 
FRI 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
=!"D 


REM ESFION 
CLS 

INFUT'DONNEZ VOTRE CODE :"3;N 
A=i/N 
PRINT: INFUT "VOTRE MESSAGE :";A$ 
PRINT:PRINT "VOULEZ-VOUS "5: PEN 2: PRI 
"{C)ODER"3:PEN 1:PRINT " OÙ "::PEN 3: 
NT "(CD)ECODER"3:FPEN 1: INFUT "is RS 
Eg="" 

FOR I=1i TO LEN(A$) 
T=ASC(MIDHS(A#,1,1)) 

GOSUE 1000 

TET-AX ((R$="C") —- (K$="D") ) 

IF T390 THEN T=T-26 

IF T£65 THEN T=T+26 

BH=H$+CHRS (T) 

NEXT I 

PRINT: FRINT "RESULTAT 2 "33 FEN (&- CRS$ 
MI): FRINT E$:FEN 1:END 


1000 Az (A+F1) j8 
1010 A=A-INT (A) 
1020 A=INT(26KkA+1) 
1030 RETURN 


85 


86 


Jeu de loto 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : hasard (plusieurs joueurs). 
Difficulté du jeu : facile. 


LE JEU : 

[ s'agit de réaliser un tirage complet de loto, c’est-à-dire d'obtenir 6 nu- 
méros. compris entre Let 49. plus un numéro complémentaire. tous dif- 
férents. qui pourraient être. par exemple. utilisés pour remplir votre 
prochaine grille de loto. 


LE PROGRAMME : 

On utilisera un tableau N(7). dimensionné en ligne 40, pour enregistrer 
les résultats. 

Le tirage des nombres est effectué dans une boucle 1 (69-120). une 
deuxième boucle J (90-110) étant utilisée pour contrôler qu'il n°v a pas 
deux tirages identiques. 

Le tirage (ou le retirage) est effectué en ligne 70. 

La boucle (150-180) affiche le résultat. et la ligne 190 affiche le numéro 
complémentaire. 

Les lignes 210 à 230 S'occupent du cas où l'on voudrait refaire une autre 
partie. 


POUR JOUER : 

Isuffit de taper RUN pour lancer le programme et obtenir l'affichage d'un 
premier loto. 

La question AUTRE TIRAGE (O/N) s'affiche en bas de écran : on ré- 
pondra O si l'on désire continuer. 


EXTENSIONS POSSIBLES : 

On peut imaginer un programme qui pourrait tenir compte, soit de ses 
propres résultats. soit de résultats entrés par un joueur, pour améliorer le 
tirage. en tenant compte des probabilités de sortir un numéro donné. 

On peut aussi envisager un programme qui réaliserait des cartons pour le 
jeu de loto plus usuel. tel qu'ilest encore couramment pratiqué dans le 
Midi de la France. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
TO" 
140 
) 
150 
160 
170 
180 
190 
IRE 
200 
210 
re 
220 


230 


REM JEU DE LOTO 
RANDOMIZE (TIME) 
MODE © 
DIM N(7) 
CLS 
FOR Is1i TO 7 
NCT)=1+INT (RNDK49) 

IF Izl THEN 120 

FOR J=1 TO I-1 

IF NCI)=N(J) THEN 70 
NEXT J 

NEXT I 

LOCATE 4,6:FEN 1:FRINT "TIRAGE DU LO 


FRINT STRINGS(Z," ")35 STRINGS(14,"-" 


FOR Iz1 TO 6 

LOCATE ŒXxI-2,12:FEN Z3+I 

FRINT N(CI) 

NEXT I 

LOCATE 1,18:FEN L:FRINT "COMFLEMENTA 
s'ss PEN 1S:FRINT NC7):FEN 1 

SOUND 1,4768:SOUND 1,426: SOUND 1,379 
LOCATE 1,24:PAFER 1:FEN O:FRINT "aut 
tirage (O/N)?7'"':FAFER O:FEN 1 
AS=INÉEVS: IF A&="" THEN 220 

IF UPFERS (A$)="0" THEN 50 
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Tirage d’un dé truqué 





REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : réflexion. 

Difficulté du jeu : moyenne. 


LE JEU : 

I reprend une idée d'un programme précédent (DE TRUQUE) dans une 
application statistique : on fabrique un dé volontairement truqué. que l'on 
va lancer un certain nombre de fois. et l'on dresse un tableau des résultats. 


LE PROGRAMME : 

Les probabilités désirées pour € haque tirage sont introduites par une boucle 
[ (70-140 )avec toutes les vérifications de validité nécessaires. Le nombre 
de tirages demandés est introduit en ligne 160. 

La hote le (170-250) comptabilise les tirages. 

La boucle L (190-210) assure la conformité de chaque tirage avec les 
probabilités introduites en début de jeu. 

Les résultats sont comptabilisés en ligne 226, et affichés grâce aux lignes 
230 et 240. 


POUR JOUER : 

Commencer l'exécution en frappant RUN. puis à la question PROBABI- 
LITE DU DE L. introduire un nombre compris entre Ü et 1. 

Faire de même pour les dés 2, 3. ete. sans oublier que le total des proba- 
bilités introduites devra être proche de 1. 

Ensuite, à l'affichage de la question NOMBRE DE TIRAGES. on intro- 
duira un entier uihsdniie nt grand, suivi de ENTER. L'affichage des 
résultats mettra d'autant plus de temps à apparaître que l’entier introduit 
sera grand. 

Les résultats sont affichés sous les numéros des tirages : ainsi 32.3 appa- 
raissant sous le 1 signifie que le tirage de 1, auquel on avait affecté une 
probabilité de 0.3. a été réalisé 32 fois. 


EXTENSIONS POSSIBLES : 

On peut envisager d'améliorer la représentation des résultats en utilisant 
par exemple un histogramme. ou toute autre méthode graphiquement plus 
parlante. 


10 KREM TIRAGE D'UN DE TRUQUE 

20 RANDOMIZE(TIME) 

F0 INK O,2:INE 1,17 

40 DIM E(6) 

30 CLS 

60 F0 

70 FOK Isi TO 6 

80 LOCATE 1,35:FRINT STRINGS# (40,32 

90 LOCATE 1,3:FRINT "FROBRARILITE DU DE'": 
Is: INFUT E (CT) 

100 FaePF+E (CT) 

110 IF E(I)2O0 OK E(D)iel OK Fl,1l THEN 3 

00 

120 LOCATE &XI-35,6:FRINT "DE'3I 

130 LOCATE 6XxI-5S,8:FRINT E(CT) 

140 NEXT I 

150 IF F£0,.9 THEN RUN 

160 FRINT:FRINT: INPUT "NOMBRE DE TIRAGES 
CA 4 

170 FOR J=1i TO F 

180 NÆ=INT(KNDX6+1) 

190 FOR Isi TO 6 

200 IF Nz=I AND KND*E(CI)-INT(E(CI)) THEN 1 

80 

210 NEXT I 

220 E(N)=E (N) +1 

230 LOCATE 6XN-1,1S:PRINT N 

240 LOCATE 6XN-353,17:FRINT E(N) 

2930 NEXT J 

260 END 

300 FAFER 3S:LOCATE 11,2S:FRINT CHR$(7) 3" 
IMPOSSIBLE :O0£=P<1": FAFER O 

310 FaeF-E(I) 

320 FOR J=i TO 10O0O0:NEXT J 

330 LOCATE 10,2S:FRINT STRINGS(22,32): 

340 GOTO 80 
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Le jeu de Marienbad 





REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : logique (2 Joueurs). 
Difficulté du jeu : movenne. 


LE JEU : 

Un jeu rendu très célèbre grâce à un film qui le popularisa. prése nté tou- 
tefois ici dans une version “plus conforme à ses origines. à savoir le jeu de 
NIM. 

En effet. 1lest possible. en début de partie. de choisir le nombre d'allu- 
mettes que lon veut mettre dans chaque tas. 

Chaque joueur joue à son tour. et celui qui retire la dernière allumette à 
perdu. 


LE PROGRAMME : 

La ligne 60 dimensionne une variable A (D qui contiendra le nombre 
d'allumettes de chaque tas. 

La boucle 1 (70-100) permet d'entrer ce nombre. 

La boucle (130-100) imprime les tas. 

La ligne 170 assure l'affichage du Joueur. 

La ligne 190. ainsi que la ligne 200. contrôlent si le coup est autorisé. 

La ligne 260 contrôle la fin de la partie. 


POUR JOUER : 

On lance le programme avec RUN. ne on entre le nombre de tas (entre 
Let 7). suivi de ENTER. 

On entrera ensuite le nombre d'allumettes s dans € haque tas (faire à chaque 
entrée N suivi de ENTER). On obtiendra alors l'affichage des différents 
tas. avec le numéro du joueur concerné (D'ou 2). ainsi que le message 
DANS QUEL TAS : on répond en tapant le numéro du tas dans lequel on 
désire faire un retrait suivi de ENTER. On obtient ensuite la question 
QUANTITE A ENLEVER. et l'on répond en indiquant le nombre d’allu- 
mettes que lon désire enlever du tas concerné. 

Puis ce sera au tour du deuxième Joueur. et l'on jouera alternativement 
jusqu'à ce qu'il nv ait plus d'allumettes disponibles. 

En fin de partie. on obtiendra l'affichage du numéro du joueur gagnant. 


EXTENSIONS POSSIBLES : 

On peut désigner chaque joueur par son nom, faire un graphisme plus 
élaboré. écrire un programme permettant à votre AMSTRAD de servir de 
partenaire, ete. 


10 REM LE JEU DE MARTENRAD 

20 CLS 

30 FRINT.-'"NOMERE DE TAS © £x7 )2!3 2 PAPER 
3: INFUT "UN: FAFER © 

40 IF Ne6 OK NéeO THEN KUN 

30 S=0 

6Q DIM AN) 

79 FOR I=l TO N 

80 FRINT:FRINT'TAS "sl: INPUT "- NOMBRE 
D'ALLUMETTES:'":A(I) 

9Q SxS+ACT) 

100 NEXT I 

110 Hæl 

120 CLS 

130 FOK I=i TON 

140 LOCATE SXI+S5,S:FAFER LiFEN O2FRINT U 

SING "HHHH#!sACI) 

130 FAFER OPEN L:FRINT:FRINT "TAS":LOCA 

TE OSXI+SE, 7: PRINT I 

160 NEXT IT 

170 LOCATE 1,1O0:FEN IL+HiFRINT "MJQUEUR" 3H 
180 FRINT:INFUT "DANS QUEL TAGS gesal, 
190 IF TN THEN FKRINT CHK& (7): :GO0OT0 120 

200 IF ACT)=0 THEN FRINT CHARS (7) 3: :GO0TQ 1 

20 

210 LOCATE 1,14: FRINT CHKS (20) x INFUT "Q 

UANTITE À ENLEVER :"30 

220 IF OXACT) OR OQùux0O THEN FRINT CHES (7) 
::G0OTO0 200 

230 ACT)EACT)-0 

BA4O SE 0 

280 Hæl+kl MOD 2 

260 IF Sx0Q THEN FRINT:FARINT LE JOUEUR " 
sHi "A GAGNE,. ": SOUND 1,478: SOUND 1,319:50 

UND 1,:379:END 

270 GOTOQ 120 
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Compose 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de Jeu : composition musicale. 
Diffic ulté du jeu : aucune. a prior. 


LE JEU : 

I s'agit. en fait. d'un programme capable de composer. de façon très 
élémentaire. de la musique. et ceci d'une façon complètement aléatoire. 
L'ordinateur va. dans un premier temps. dessiner une portée, puis il af- 
fiche une succession de notes (allant du DO grave au SF'aigu) et donne 
leur nom. Une nouvelle série de notes sera ensuite affichée, et ainsi de 
suite. 


LE PROGRAMME : 

La boucle L (50-70) dessine la portée. La variable N$. en ligne 80. contient 
les noms des notes et V£ contient les notes sous forme codée. 

La deuxième boucle L (90-150) permet de faire le choix d’une note de 
façon aléatoire. à la ligne 100 : son nom est calculé en ligne 110 et la note 
est dessinée par la ligne 120. 

La ligne 130 joue la note. tandis que la boucle WHILE/WEND interdit de 
continuer jusqu'à la fin de son exécution. 

La ligne 160 permet de recommencer en tapant ENTER. 


POUR JOUER : 

Lancer l'exécution du programme en tapant RUN. 

La portée sera alors rapidement affichée. puis les notes sont représentées, 
avec leur nom affiché en bas de l'écran. 

Une pression sur une touche quelconque provoquera l'affichage d'une 
nouvelle série de notes. et une double pression sur la touche ESC provoque 
la fin de la partie. 


EXTENSIONS POSSIBLES : 
On pourra affiner les règles de composition. afficher davantage de notes. 
introduire des dièses et des bémols. améliorer le graphisme. 


10 REM COMFOSE 

20 KANDOMIZE(TIME) 

3Q FRINT CHARS (22) x CHAS (1) 

40 CLS 

50 FOR Ixil TO 5 

60 LOCATE 1,4+2X I: PEN GsPFRINT STRINGS (40 
» 154) 

70 NEXT I 

80 N$='"GT LA SOLFA MI RE DO ":V0#="127147 
1591791902 12279295232841195:585:79426476" 

90 FOR Iæz1l TO 10 

100 X=INT (RNDX14+1) 

110 DH=MIDS (NS, EX CXH7XCXE7)) 2, 

120 FEN 2Z:LOCATE 4XI-2, X: FRINT CHKS CZ11) 
CHARS (10) x CHRS (8) ; CHRS (211) ; CHRKS (10) s CHR 
#6) 3 CHRS (6) 3 "O0" 

1240 SOUND 1, VAL (MIDS (V#S,2XkxX-2,7) ):WHILE 

SU (1) 127: WEND 

140 FEN 1L:LOCATE 4XI-7,20:FRINT D$ 

150 NEXT I 

160 FRINT CHRS (22) +CHRS (0) 3: FAFER 1l:FEN 

O:LOCATE 7,24: INPUT M"TAFER ENTER FOUR 

CONTINUER" ,KS#:FAFER © 

170 GOTO 40 
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Jour de la semaine 


REFERENCES : 
Difficulté de programmation : movenne. 
Catégorie de jeu : uulitaire. 


Difficulté du jeu : facile. 
LE JEU : 


Le programme vous permet de retrouver. sans aucun calcul. le jour de la 
semaine corre spondant à à une date donnée. 

La date sera entrée sous forme de trois nombres. par exemple 11.3. 1956 
pour le TT mars 1956. et le résultat sera affiché en clair. 


LE PROGRAMME : 

Les dé 20 à 60 contrôlent les entrées. La ligne 40 s'occupe de la fin de 
partie. a ligne 90 permet une correction pour les dates antérieures à 1582 
mise en service du calendrier actuel). 

Les lignes 100 à 110 permettront l'affichage en clair du mois dans la 
réponse (sur + lettres 

La formule utilisée apparaît aux lignes 130 et 140. 

Les lignes 1509 à 180 permettront l'affichage en clair du jour dans la 
réponse, La ligne 180 imprime les résultats centrés à l'écran. 


POUR JOUER : 

Lancer le programme par RUN. puis entrer Île ] Jour suivi de ENTER. le 

mois entre Let 12: suivi de ENTER. et l'année (sous la forme 1845. par 
exemple: suivie de ENTER. 

Le résultat esttrès rapidement affiché. 

On tape une touche quelconque et le programme revient sur la question 
JOUR. 

Pour continuer, 1 suffit de retaper un jour. un mois. une année. 

Pour terminer. il faut répondre 0 à la question JOUR. 


EXTENSIONS POSSIBLES : 

On pourra entrer les mois en clair et faire afficher le nom du jour en entier. 
On peut envisager de faire afficher les dates et fêtes particulières Noël. 
Pâques. les Rameaux. Pentecôte... 

On peut écrire un programme qui afficherait les jours fériés pour une 
année donnée. ete. 


10 REM JOUR DE LA SEMAINE 

20 CLSsINE HE, GE 

HO FARINTS INPUT MJQUR Su un on on nt 
J 

4 IF JO THEN END 

50 FRINT: INEUT MMOIS A A A ee 1" 
M 

60 FAINTS INEUT  MANNEES A A a ue un nu ti 
fi 

PASSE 0) 

SO Ga TNT AZ 100) INT (A/400) 

DO IF A£elSGZ THEN S&% 


SEFTOCTONOVEDECE " 

110 Mb=MIDS (MS, AXMT, 4) 

120 IF M£S THEN GOSUE 220 

LEO Ge LA INT CLEX OM L) / 5) HINT CHKA/4) 5 
140 GeS MOD 7 

150 J$="DIMANCHELUNDI MARDI MERCREDI 
JEUDI  VENDREDISAMEDI " 





Let M JBeLEFTS (JS, LEN (J$)-1) : WEND 

170 Fa "LEM+STRS (JD) HA MBHOSTRS CH) +" ETA 
IT UN " 

180 FEN Se LOCATÉE  CAOLEN CF) LEN CT#) ) 7/2, 
BOIFRINT F5 cs PEN GeFARINT J$:FAFER 1: FEN 

(a) 

190 SOUND 1,478: SOUND 1,419: SQUND 1,479 

#00 LOCATE 6,24: INFUT MTAFER CENTER FOU 
FO CONTINUER", RS: PAPER OùFEN 1 

210 KUN 

ae MeMtle 

BC Ale] 

240 RETURN 
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Tour de cartes 





REFERENCES : 

Difficulté de programmation : : difficile. 
Catégorie de ] Jeu : Jeu de prestidigitation. 
Difficulté du jeu : facile. 


LE JEU : 

C'est un tour assez facile mais. ici. les cartes sont manipulées sous vos veux 
par AMSTRAD qui tient le rôle du prestidigitateur : 21 cartes. prises au 
hasard dans un paquet de 52. sont affichées. et le joueur devra retenir 
mentalement l'une des cartes présentées. Puis. il devra indiquer à votre 
AMSTRAD dans quelle colonne (1". 2° ou 3° à partir de la gauche) se 
trouve la carte choisie : les cartes sont alors redistribuées et le joueur 
indique de nouveau la colonne correspondant à sa carte : ceci est fait 
encore une fois et. au + affichage. AMSTRAD est en mesure de deviner la 
carte choisie. 


LE PROGRAMME : 

La boucle 1 (60-100) permet de choisir. au hasard. 21 cartes sur 52. et la 
ligne 80 permet de s'assurer que l'on ne réalise pas deux fois le même 
ürage. La ligne 120 contient les noms des cartes (2. 3... RO. AS) et leur 
coule ‘ur dans deux variables alphanumé riques VS et C$. 

La boucle 1 (130-210) réalise l'affichage du jeu. 

La ligne 140 décode la couleur de la carte. 

La ligne 150 choisit la position d'affichage. 

La ligne 160 décode la hauteur. 

L'affichage proprement dit est effectué de la ligne 170 à la ligne 200. 

La ligne 230 permet au Joué ur d'entrer le numéro de la colonne où se 
trouve sa carte. La boucle J (270-290) réalise le brouillage. et les boucles 
emboitées J (320-360) et I (330- 350) fabriquent la nouv velle variable AS 
à utiliser pour le prochain affichage. 


POUR JOUER : 

On lance le programme par RUN. 

On obtient un premier affichage de 21 cartes réparties sur 3 colonnes. 
On indique alors le numéro (1. 2 ou 3) de la colonne où se trouve la carte 
choisie. suivi de ENTER. 

On obtient un 2° affichage et l'on fait de même : puis un 3° affichage et 
l'on fait de même. 

Au 4 affichage. la carte choisie est automatiquement affichée. 

On sortira du programme en tapant ESC deux fois à la place du numéro 
de la colonne. 





EXTENSIONS POSSIBLES : 

On peut envisager une amélioration de l'affichage en écrivant les noms des 
cartes en entier. ou même. en dessinant de véritables cartes. en couleur. 
On pourra aussi essayer de programmer d’autres tours. utilisant le même 
principe de base. mais avec davantage de cartes. ete. 


10 REM TOUR DE CARTES 

20 RANDOMIZE (TIME) 

30 BORDER 9:INK O,9:INK 1, 26:INKH 2,0:IN 

K 3,6 

40 CLS 

50 A$="" 

60 FOR I=i TO 21 

70 B$=CHRS (INT (RNDX52+38) ) 

80 IF INSTR (A$,B#)<>0 THEN 70 

90 A$S=A$+B$ 

100 NEXT I 

110 H=3:Pæ1 

120 V#="2.3 4 5 6 7 8 9 10VADAROAS": C$=C 

HRS (226) +CHRS$ (227) +CHRS (228) +CHRS (229) 
130 FOR I=1 TO LEN(A$)XFP-11%X(P=0) 

140 S=1+INT((ASC(MIDS (A$,1,1))-38)/13) 
150 J=INT((I-1)/7) 

160 T=(ASC(MID#(A$,I,1))-38) MOD 13 

170 IF F=0 THEN LOCATE 1,12:PRINT "VOTRE 
CARTE EST :" 

180 LOCATE 1+17XJXFP-17% (F=0),1+0C1-7XJ) XF 
—11*X(F=0) 

190 PRINT MIDS(VS,2KXT+1,2)3" "3 

200 FEN (2-(S=? OR S=3)):PRINT MID$(C$,S 
,1):PEN 1 

210 NEXT I 

220 IF F=0 THEN END 

230 LOCATE 1,16:INPUT "QUELLE COLONNE :" 


sN 

240 CLS 

250 H=H-1 

260 R$="20120":B#$="" 


270 FOR J=0 TO 2 

280 B$=B$+MIDS (A$,7XVAL(MIDS (RS, N+J, 1) )+ 
1:7) 

290 NEXT J 

300 IF H=O THEN A$=B$:P=0:GOTO 120 
310 A$="" 

3220 FOR J=0 TO 2 

330 FOR I=1 TO 7 

340 AS=AS+MIDS (B$S,3XI-2+J,1) 

350 NEXT I 

360 NEXT J 

370 GOTO 120 
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L’indésirable 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : hasard et réflexion (1 joueur). 
Difficulté du jeu : moyenne. 


LE JEU : 
Vous êtes le propriétaire d'un immeuble de 16 pièces vides. et vous n'ar- 
rivez pas à mettre la main sur votre locataire indésirable. Vous visitez les 
pièces au hasard. mais. si vous visitez la pièce voisine. votre locataire. 
prévenu par le bruit. va déménager. [peut même se réinstaller dans une 
pièce que vous avez déjà visitée. et marquée comme vide. Evous faudra 
arriver à le déloger en moins de 9 coups pour ga 


rnheor 
ner. 


LE PROGRAMME : 

Une table Best dimensionnée à 16. en ligne 50. pour recevoir les numéros 
des cases déjà visitées. 

La boucle 170-100! dessine Le terrain de jeu à Faide d'une encre trans- 
parente. 

La position initiale du locataire est turée au hasard'en ligne 110. 

Le numéro de la case à visiter est donné en ligne 120 et est vérifié en ligne 
130. 

Les lignes 140 à 210 contrôlent les diverses réponses possibles. 

La RENTE le F1180-200) dessine les cases visitées. 

La ligne 220 dessine le locataire. effacé en ligne 250. 

Les lignes 2600 61270 assurent son déplacement. 


POUR JOUER : 

On lance Fexécution par RUX. 

A la question CASE VISITEE. on répond en tapant une lettre. de A à P. 
Sion a trouvé le locataire, celuiser est affiché. et la partie est terminée: 
sinon. deux cas peuvent se produire : soit l'on est suffisamment loin. et le 
locataire ne bouge pis. soit l'on est à une case. il apparaît un court instant. 
etilse recache, aléatoirement. dans une case voisine. Les cases déj Ja visitées 
se colorent et \ bleu. CL VOUS NE POUVEZ pas V revenir. Si au bout de 
9 coups. vous n'avez pas trouvé, la position du locataire s'affiche. et vous 
avez perdu. 


EXTENSIONS POSSIBLES : 

On pourra. bien sûr. jouer sur plus de 16 cases. utiliser des caractères 
graphiques pour représenter le locataire et le propriétaire. utiliser un al- 
gorithme plus subtil pour le déplacement du locataire. lur interdire éven- 
tuellement de revenir dans des cases déjà visitées. ete. 


10 REM L'INDESIRABLE 

20 RANDOMIZE(TIME) 

30 PRINT CHR$# (22) +CHR$ (1) 

40 B#&=STRINGS (3,127) 

50 DIM H(16) 

60 CLS 

70 FOR I=i TO 16 

80 LOCATE 4+4X(I-1-A4KINT(C(I-1)/4)),2+4XT 
NT((CI-1)/4):PEN S:FRINT ER$ 

90 LOCATE 4+4X(CI-1-4KXINT((CI-1)/4)),23+4XT 
NTCCI-1)/4): PRINT B#$:CHRS# (8) ; CHR#& (GB) 3: FE 

N 2:FRINT CHR$(644+1) 

100 NEXT I 

110 X=INT(RNDX16)+1:S=l:E=O: PRINT CHARS (2 
2) +CHRS$ (0) 

1270 FEN 1: LOCATE 1,2O0:FRINT CHK$(20)3:1 
NEUT "CASE VISITEE :"3C#6:C=ASC(C#+" ")-6 
4 

130 IF C£i OR Clé THEN 120 

140 IF B(C)=1 THEN LOCATE 14,22Z:FAFER 1: 

FEN O:FRINT "DEJA VISITEE'":FRINT CHRS (7) 
::FAFER O:GOTO 120 

150 IF C:zX THEN LOCATE S,22:FEN 2: FRINT 
"VOUS L'AVEZ EU EN'"':S;'"COUFS. BHRAVO''":S0 

UND 1,478: SOUND 1,379: SOUND 1,319:K=1:G0 
TO 220 

160 IF X-5=C OK X-4=C OR X-3=C OR X-1=C 
OR X+i=C OR X+3=C OR X+4=C OR X+5=C THEN 
GOQTO 220 

170 LOCATE 12,22:FRINT "IL N°'EST FAS LA" 
: SOUND 1,478: SOUND 1,426: SOUND 1,379 

180 S=S+1:H(C)=1: FOR I=1 TO lé 

190 LOCATE 4+4XK(I-1-4XINT((I-1)/4)),2+4X 
INTC(CI-1)/4):FEN ZG-RCI):FRINT E$ 

200 NEXT I 

210 IF Sx9 THEN LOCATE S,22:FAFER Z:FEN 
O: PRINT "VOUS AVEZ FERDU, IL ETAIT EN ‘":; 
CHRIS (X+64) :kH=l: FAFER O:FEN 1:ELSE GOTO 1 
20 

220 LOCATE 5+4X(X-1-4XINT(C(CX-1)/4)),1+4%X 
INTOCX-1)/4):FRINT "X" 

230 HEXTIME:WHILE TIME-HE£20:WEND 

240 IF KEzi THEN SOUND 1,319:SOUND 1,237%: 
SOUND 1,478:LOCATE 1,24:END 

250 LOCATE 5+4X(X-1-AXINT((X-1)/4)),1+4X 
INTCCX-1)/4):FRINT " " 

260 Z=INT(IOXRND+1)-5: IF ARS(Z)=2 THEN 
260 

270 XeX+Z:1F Xïrié OR X£1 THEN X=X-Z:GOTO 
260 

280 GOTO 180 
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Le jeu de la vie 





REFERENCES : 

Difficulté de programmation : : difficile. 
Catégorie de jeu : Jeu solitaire (2 versions). 
Diffie ulté du jeu : facile. 


LE JEU : 

La version présentée ie respecte les règles posées à l'origine par le mathé- 
maticien JE CONW AY. 

Une certaine population est définie au début du jeu soit par AMSTRAD 
Version automatique) soit par vous-même (version manuelle). Cette po- 
pulation va évoluer sous vos veux. en respectant certaines règles. très élé- 
mentaires de naissance. de vie et de mort. L'évolution se poursuivra jusqu'à 

ce que l'on décide d'arrêter le programme. 


LE PROGRAMME 

Deux tables (Bet C} sont utilisées en ligne 50. pour enregistrer l'état de la 
population. Les boucles F71230-290) et G (240-280) sont utilisées en 
début de jeu pour définir la population initiale (igne 250). Le caleul de 
la nouvelle population estensuite réalisé à l'aide d'une quadruple boucle : 
80-210. 90-200. 110-160. 120-150. La ligne 130 réalise la gestion du 
nouvel état suivant les règles. 

L'affichage de ce nouvel état est obtenu en réutilisant la double boucle 
d'affichage F230-290) et G (240-280). 

La ligne 300 permet de recommencer. 


POUR JOUER : 

Dans la version automatique. il suffit de lancer le programme par RUN et 
de regarder. Pour arrêter. 1 faudra taper ESC deux fois. Dans la version 
manuelle, la configuration de départ sera entrée. après le lancement du 
programme par RUN. en tapant 0 si lon ne veut rien mettre sur la ligne 
et la colonne indiquée. et Psion désire v mettre une cellule. Puis Févo- 
lution se déroulera ensuite de façon automatique. 


EXTENSIONS POSSIBLES : 

[sera facile. si on dispose d'une mémoire plus importante. d'augmenter 
les dimensions des tables Bet CG. en redéfinissant la variable A. On pourra 
aussi introduire la couleur. améliorer la précision du dessin en remplaçant 
les PRINT par un affichage haute résolution. 


10 REM LE JEU DE LA VIE (MANUEL) 

30 INF O,14:INH 1,18 

40 INFUT "DIMENSION :"3A2:IF AS1 OK A:12 
THEN KUN 

50 DIM HB(A,A):DIM C(A,A) 

60 I=0 

70 GOTO 220 

80 FOR Fz1i TO À 

GO FOR Gz1 TO À 

100 S=0 

110 FOR Izæ-1 TO 1 

120 FOR Jz=-1 TO 1 

150 IF F+J=0 OR G+1=0 OR F+J=A+i OK G+l= 
A+i THEN 150 

140 SeS+R(F+J,G4+1) 

150 NEXT J 

160 NEXT I 

170 Se2XxS-R(F,6) 

180 C(F,G)=0 

190 IF S5rxS5 AND 827 THEN C(F,G)zi 

200 NEXT G 

210 NEXT F 

220 CLS 

230 FOR F=1i TO A 

240 FOR G=1 TO 4 

250 IF 14:50 THEN 260 

259 LOCATE 1,2S:FEN S:FRINT "LIGNE"SFS"C 
OLONNE"':G3 "TAFER 1 OÙ © 3. 

237 LOCATE 535,25: INPUT C(F,G):C(F,G)zæ (CC 
(F,G)#1):FEN 1 

260 LOCATE ZXxG,2XF:IF C(F,G)=1 THEN FRIN 
T "x" 

270 H(F,G)xC(F,6G) 

280 NEXT G 

290 NEXT F 

300 GOTO 80 
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10 

20 

FO 

40 

THE 
50 

60 

70 

80 

90 

100 
110 
120 
150 
Ati 
140 
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160 
170 
180 
190 
200 
210 
220 
2:30 
240 
2930 
260 
T " 
270 
280 
290 


300 


REM LE JEU DE LA VIE (AUTOMATIQUE) 
RANDOMIZE (TIME) 

INK O,14:INE 1,18 

INFUT "DIMENSION :"3A:IF A1 OR A1? 
N RUN 
DIM HB(A,A):DIM C(A, A) 

1=0 
GOTO 220 
FOR F=1i TO À 
FOR G=1 TO À 

S=0 

FOR I=-1 TO 1 

FOR J=-1 TO ! 

IF F+J=0 OR G+1=0 OR F+JrA+1i OR G+l= 
THEN 150 

S=G+E(F+J,G+1) 

NEXT J 

NEXT I 

S=PXS-B(F,G) 

C(F,G)=0 

IF Sè=5 AND Si=7 THEN C(F,G)=1 

NEXT G 

NEXT F 

CLS 

FOR F=1 TO 4 

FOR G=1 TO À 

IF 1=0 THEN C(F,G)=-(RND#0.5) 
LOCATE 2XG,2XxF:IF C(F,G)=1 THEN FRIN 
x" 

R(F,G)=C(F,G) 

NEXT G 

NEXT F 

GOTO 80 


Niveau 3 


Nom du programme 


Thèmes et particularités 





Losanges 


Plus grand. plus petit 
Ordre 


Le pendu 


Belote 


Un taquin de calcul 


Pendu inversé 
Nicomaque 
Mastermind 

Idem 

Reines sur Féchiquier 
\Mots 


Permutations 


Bridge 


Flanoï 


Course de chevaux 


Accrochez les wagons 


Le loup et les agneaux 


Pour vous aider à vous endormir. 

Un jeu de déduction intéressant. pour un 

joueur. 

Un peu d'astuce pour remettre en ordre, le 

plus vite possible. 

Un jeu de lettres très classique 2 joueurs. 

Pour simuler une donne. avec un jeu de 

32 cartes. 

Un bon entrainement 2 joueurs. 

Cette fois. cest Fordinateur qui essaie de 

deviner le mot. 

Pour se perfectionner en calcul mental 
Lou plusieurs joueurs. 

Avec des chiffres. mais très classique. Un 

seul joueur. 

Un jeu de caleul mental. avec plusieurs ni- 

veaux. pour plusieurs joueurs. 

Un vieux problème. pour vous aider à ré- 

fléchir. 

Une idée très simple. mais ce n'est pas si 

facile de trouver ! 

Un jeu de réflexion. pas toujours évident. 

Mettez au point vos propres problemes de 

bridge. 

Un conseil: commencez peut UT! 

\ssez visuel : un jeu de hasard. pour plu- 

SICUFS Joueurs. 

Pour les plus jeunes : très spectaculaire. 


Un jeu de réflexion pour 2 joueurs. 
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Manipulation des 
chaînes et graphiques 
haute résolution 





TRAITEMENT DES CHAINES DE CARACTERES : MID$. LEFT. 
RIGHTS 











Nous avons eu Foccasion de rencontrer. dès le niveau IL la fonction essen- 
üelle utilisée dans le Basic AMSTRAD pour manipuler les chaînes : il s'agit 
de MIDS (AS. DJ qui permet d'extraire. dans la chaîne A$. une sous- 
chaîne de longueur JL. commençant au Ième caractère. 

Ainsi si. 

A$ = “MONSIEUR” 

on aura : 


MIDS (A$. 2.3) = "ONS” 


Pour faciliter les manipulations. ilest possible d'utiliser les deux fonctions 


LEFTS et RIGHTS. 


LEFTS (A$. D permet d'extraire les I premiers caractères à partir de 
la gauche du mot A$. 


Ainsi. LEFTS A$. 2) = MOT. avec l'exemple précédent (on pourrait 
d'ailleurs uuliser MIDS AS. 1 2: pour obtenir le même résultat). 


RIGHTS (AS. D permet d'extraire les J derniers caractères (on part de la 
droite du mot A$. 


Ainsi RIGHTS (A$.3) = “EUR”. toujours avec le même exemple. 

} 
Il est plus difficile de se passer de la fonction RIGHTS. mais il serait 
possible de faire MIDS A$. LEN (AS) - 3.3) pour obtenir le même résul- 


tat. 


Le Basic AMSTRAD permet de plus le remplacement direct d'une sous- 
chaîne par une affectation du tvpe MIDS {-.-) = 7. 


Ainsi on pourra écrire MIDS (A$. L 1) = *—". ce qui permet de simplifier 
considérablement certaines écritures. 


LE GRAPHISME AVEC L'INSTRUCTION PLOT 


AMSTRAD possède 3 largeurs d'écran (20. 49 et 80 colonnes) auxquelles 
correspondent 3 définitions graphiques. 


Ces 3 modes ont la particularité de posséder les mêmes repérages d'écran. 


Ainsi. en mode 0. 1 ou 2, l'instruction PLOT X. Y. C imprime un point à 
la même position d'écran X. Y. Seule varie la dimension du point. 


Un paramètre optionnel C permet de varier la couleur d'impression. 


LES INSTRUCTIONS DE POSITIONNEMENT : MOVE ET MOVER 





L'origine des axes de repérage des coordonnées d'un point graphique est. 
ar défaut. le coin inférieur gauche de l'écran. L'instruction ORIGIN per- 
I £ l 
met de la déplacer. 


Dans le repère ainsi défini, MOVE X. Y positionne le curseur graphique. 
là où les impressions peuvent être faites. 
Les déplacements peuvent être effectués relativement à la position actuelle 


du curseur. Ainsi, MOVER 8. +. le déplace de 8 unités vers la droite et de 
+ vers le haut. 


LE DESSIN DE LIGNES : DRAW ET DRAWR 


L'instruction DRAW X. Y. dessine une ligne depuis la position du curseur 
graphique. jusqu'au point de coordonnées absolues X et Y. 

L'instruction DRAWR X. Y. dessine le trait jusqu'au point décalé de X 
unités horizontales et Y unités verticales. 
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Losanges 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : Interlude. 
Difficulté du jeu : aucune. 


LE JEU : 

Le programme va progressivement construire sur l'écran un losange. puis 
il va l'effacer progressivement. le reconstruire, et ainsi de suite. 

Vous pourrez envisager de lutuliser pour vous endormir, si les moutons ne 
vous suffisent plus. 

Une version. très différente. vous est également proposée, qui vous per- 
mettra de mieux comprendre le fonctionnement de la puissante instruction 


DRAN. 


LE PROGRAMME : 

La ligne 30 met l'origine des axes au centre de l'écran. 

Une première boucle K (50-130) définit les dimensions des tracés succes- 
sifs. 

La deuxième boucle F 160-1207 trace des bandes de points. en utilisant 
des instructions PLOT lignes 80 à 110). 

Si la variable Signe 70 est à — 1 alors il v aura effacement aléatoire ‘on 
utilise toujours PLOT. mais en se servant de couleurs aléatoires pour ef- 
facer 

La boucle NHILE/NW END. initialisée en 140. permet de choisir + couleurs 
différentes. 

Le deuxième programme uulise DRAW pour dessiner les losanges. puis 
les effacer. 


POUR JOUER : 

On commence Fexécution du programme avec RUN. On entre si nécessaire 
un Noyau pour le générateur (premier programme). et on regarde. 

On peut arrêter à tout moment en tapant deux fois ESC. 


EXTENSIONS POSSIBLES : : 

On pourra introduire le son. utiliser Finstruction LINE qui permettra un 
tracé beaucoup plus rapide. imaginer sur des principes analogues divers 
programmes (kaléidoscope. tapisserie... 


10 REM LOSANGES1I 

20 KANDOMIZE(TIME) 

30 MODE OSINH O1: INE 1,O02INE S, 3: ORIGIN 
320,200 

40 CLS:S=0 

50 FOR E=O TO 130 STEF 6 

60 FOR 1=0 TO K 

70 IF SO THEN ON INT(IXSXRND) GOTO 200 

.210,220,270,240 

80 FLOT -K+I1,-1,1 

90 FLOT -H+I1,1,1 

100 FLOT KH-I,1,1 

110 FLOT É-I,-I,1 

120 NEXT I 

130 NEXT 

140 FOR Izi TO 4:C(I)=O0:NEXT I 

150 WHILE ((C(1)-C(2))K(C(1)-C(CT))X(C (1) 

—C(4))k(C(2)-C(F))X(C(2)-C(4))K(C(T)-C(4 
)))=0 

160 FOR I=1 TO 4:C(I)=2+INTCRNDX14):NEXT 
I 

170 WEND 

180 S=NOT S 

190 GOTO 50 

200 FLOT -KH+I,-1,C(1) 

210 PLOT -K+1,1,0(2) 

220 FLOT K-I,I,C CS) 


230 PLOT K-1,-1,C(4) 10 REM LOSANGES2 
240 GOTO 120 20 RANDOMIZE (TIME) 


30 MODE OfINH O,12:INE 1,0:INÉ 5,%:0ORIGIN 
320,200 

40 CLS:S=0 

50 FOR K=O TO 1:0 

70 IF S“#:0 THEN ON INT(IXSXRND) GOTO 200 
.210,220,2%0,2740 

80 MOVE O,K 

90 DRAW K,0,1 

100 DRAW O,-K, 1 

110 DRAW -KH,0,1 

120 DRAW O,K, 1 

130 NEXT K 

140 FOR 1=1 TO 4:C(I)=O:NEXT I 

150 WHILE ((C(1)-C(2))X(C(1)-C(CT))X(C (1) 

“C(4))Kk(C(R)-C(T))KX(C(2)-C(4))k(C (CT) -C(4 
)))=0 ' 

160 FOR 1=1 TO 4:C(I)=2+INT (RNDX14):NEXT 
I 

170 WEND 

180 S=NOT 5 

190 GOTO 50 

200 MOVE O,H:DRAW KH,0,C(1) 

210 MOVE KH,0:DRAW O,-H,C (2) 

220 MOVE O,-K:DRAW -K,O0,C CE) 

230 MOVE -K,0:DRAW O,K,C(4) 

240 GOTO 120 
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Plus grand, plus petit 


REFERENCES : 
Difficulté de programmation : facile. 
Catégorie de jeu : jeu de déduction (un seul joueur). 


Difficulté du jeu : difficile. 
LE JEU : À 


Ils inspire d'un prine ipe légèrement différent de celui du Mastermind : il 
s'agit également de deviner un nombre (de 1 à 7 chiffres), mais les indi- 
cations ont on dispose sont cette fois d’une part le nombre de chiffres 
qui. dans le nombre essayé. sont supérieurs à ceux du nombre à deviner, 
et. d'autre part. le nombre de chiffres qui sont inférieurs. Si, par exemple. 
Le nombre à deviner est 3054. et que l’on essaie 4251, la machine répondra 

2 plus grands {ce sont le + et le 2). et 1 plus petit (c'est le 1). 


LE PROGRAMME : 

La ligne 60 interdit de demander des nombres de plus de 8 chiffres. 

Le nombre à deviner est placé en ligne 89. dans une variable alphanu- 
mérique X$. 

Les comparaisons avec le nombre essayé sont faites à la ligne 130 (qui 
teste si l'on a trouvé juste). et dans la boucle 1 (150-180) où l’on fait la 
comparaison “lettre à lettre” 

L'affichage du résultat est réalisé grâce à la ligne 190 avec effacement 
d'un éventuel essai précédent. 

Le compteur du nombre d'essais est en ligne 200. 


POUR JOUER : 

Le lancement du programme par RUN provoque l'affichage NOMBRE DE 
CHIFFRES. 

On entre un nombre inférieur à 8 et on appuie sur la touche ENTER. 

Le numéro de l'essai s'affiche, ainsi que la question NOMBRE ESSAYE 
on répond en entrant un nombre, suivi de ENTER. 

Le résultat est alors affiché sous la forme > et <. 

S'il n'est pas exact. on recommence (attention à entrer uniquement des 
nombres avant autant de chiffres que le nombre à deviner). 

Si l’on a trouvé, AMSTRAD affichera VOUS AVEZ TROUVE... EN... 
ESSAIS. 

La ligne 240 forme une boucle d'attente. Puis AUTRE PARTIE (O/N) : 


on fera O pour commencer une nouvelle partie. 


EXTENSIONS POSSIBLES : 

On pourra. comme pour le Mastermind, imaginer un jeu analogue avec 
des lettres. des couleurs. où même en utilisant d’autres symbolismes. 

On peut aussi prévoir de laisser jouer AMSTRAD qui tiendra alors le rôle 
de décodeur. 


10 REM FLUS GRAND, FLUS FETIT 
20 RANDOMIZE (TIME) 
20 INE O,22: BORDER 22: INK 1,1: INF 2,9 
40 CLS 
90 INFUT "NOMBRE DE CHIFFRES : "30 
60 IF Ci OK C+8 THEN FRINT CHR$ (7) : GOTO 
40 
70 Esl:F=0Q 
80 XHS=STRS (INT (RNDX9TC+107 (CE) )) 
90 XH=RIGHTS(XS, LENCXS)-—1) 
100 LOCATE 1,3:FRINT "ESSAI NO. NOMBRE 
ESSAYE ou ss" 
110 LOCATE 1,4: FRINT STRINGS (40, 154) 
120 LOCATE 1,F+S: PRINT TAE (4) : CHR$ (18):E 
sTAR(18-(C/2) )3 INFUT "",PS$ 
130 P=LEFTS(F#,C):IF FézeX$ THEN 220 
140 AxQ:B=0 
150 FOR Isl TO C 
160 IF MID#(F#,1,1) :MID#(X$,1,1) THEN Az 
A+i 
170 IF MIDS(F#,T,1)2#MIDS(X$,1,1) THEN B= 
E+i 
180 NEXT I 
190 LOCATE 28,F+5S:FRINT A:LOCATE 36,F+5: 
FRINT E 
200 F=E MOD 17:Ex*E+1 
210 GOTO 120 
220 LOCATE 1,23%:FRINT "VOUS AVEZ TROUVE 
Mas PEN SPRINT XH32:FEN Li: PRINT " ENS:FE 
N 2:PRINT E3:FEN 1:FRINT "ESSAIS" 
230 SOUND 1,478:SOUND 1,319:SOUND 1,379 
240 X=TIME:WHILE TIME-X:1000:WEND 
230 INFUT "AUTRE FARTIE (O/N)'"':KS# 
260 IF UFFERS (LEFTS$(R$,1))="0" THEN 40 
270 CLS 
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Ordre 





REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : jeu de réflexion. 
Difficulté du jeu : movenne. 


LE JEU 

Les 10 pre ‘mières lettres de l'alphabet sont affichées dans le désordre : 1l 
faut réussir à les remettre dans l'ordre. avec le moins de Coups possible. 
par des permutations successives de deux des lettres : mais cecr a aussi 
pour inconvément de faire permuter autour d'elles les deux lettres qui 
entourent celles-ci. suivant le mécanisme expliqué ci-dessous : 


BADOCHIICFE 


O1 23 +45 0 7 8 9: permutation 83 


BADÉHIHÉCT 


0 12 3 +5 60 7 8 9: résultat 


LE PROGRAMME : 

Les boucles embottées 160-120) et (80-100) définissent une variable 
alphanumérique AS. contenant les 10 premières lettres de l'alphabet dans 
le désordre. 

La ligne 140 appelle le sous-programme 600 qui affiche A$ avec des 
lettres multicolores. La ligne 150 affiche les numéros de lettres de l'alpha- 
bet pour la permutation. 

Ou entre la permutation en ligne 180. 

Les lignes 190 61200 transforment la variable alphanumérique entrée en 
une variable numérique. 

La ligne 210 appelle une première fois le sous-programme d'inversion. 
La ligne 240 appelle une deuxième fois le sous-programme d'inversion. 
La ligne 250 comptabilise les essais. 

La ligne 170 contrôle les résultats. 


POUR JOUER : 

Lancer le programme par RUN. 

Le motinitial est affiché. chaque lettre étant repérée par un numéro de 1 
à 9. 

A la question INVERSION I. on répond en entrant un nombre de deux 
chiffres xv 2: x est le numéro de la première lettre. et v le numéro de la 
seconde. Les deux inversions sont alors successivement effectuées. et Fon 
recommence. 

Le nombre de coups sera affiché en fin de partie. 


EXTENSIONS POSSIBLES : 

On peut imaginer un jeu contre l'ordinateur. qui évalue ‘rait le score du 
joueur en Poe “uon de ses propres pe rformances : on peut aussi modifier 
les règles qui régissent les permutations. 


10 REM ORDRE 

20 RANDOMIZE(TIME) 

50 MODE O:FOR 1z=2 TO 11:INH I,I:NEXT I 
40 CLS 

50 A#$="" 

60 FOR I=1 TO 10 

70 R$=CHRS (INT (RNDX10+65) ) 

80 FOR J=1 TO I-1i 

90 IF R$#=MIDS(A$S,J,1) THEN 70 

100 NEXT J 

110 AS=AS+RS 

120 NEXT I 

130 S=i 

140 LOCATE 1,4:FRINT'RESULTAT :°"3:GOSUR 
600 

150 FRINT TAH(11)"0127454789" 

160 LOCATE 1,9:FRINT "ESSAI NUMERO'":S 
170 IF A$="ANCDEFGHIJ" THEN LOCATE 2,24: 
FRINT "TROUVE EN'":5S3;"COUFS'":SOUND 1,478: 
SOUND 1,319: SOUND 1,:79:END 

180 LOCATE 1,12:PFRINT CHR#& (20) 3: INPUT "I 
NVERSION (IJ)'"':RS# 

190 I=ASC(LEFTS (RS, 1))-47 

200 J=ASC (RIGHTS (RS, 1) )-47 

210 GOSUER 500 

220 IF LEFTH(R$S,1)="0" OR LEFTS(R$,1)="9 
" THEN 240 

230 Isl-1:J=1+e 

240 GOSUR 500 

250 S=S+1 

260 GOTO 140 

500 E$="" 

S10 NS=MIDS(AS,I,1):M#S=MIDS (A$,J,1) 

520 FOR T=i TO LEN(A#) 

IF T=l THEN E$=E$+M$:GOTO 560 

IF T=J THEN E$=EB$+N$:GOTO 560 
E$=H$+MIDS (AS,T.1) 

NEXT T 

A$=B$ 

RETURN 

FOR T=1i TO 10 

610 AFS=MIDS (AS,T,1):FEN (ASC(AF#)-65):F 
RINT AF#; 

620 NEXT T 

6830 FEN 1:RETURN 
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Le pendu 





REFERENCES : 

Difficulté de programmation : difficile. 

Catégorie de jeu : jeu de lettres (version deux joueurs). 
Difficulté du jeu : moyenne. 


LE JEU : 

Il serait sans doute assez difficile de retrouver le nom de l'inventeur de ce 
jeu très à la mode. mais ilest certain qu'il'existe depuis des temps immé- 

moriaux. quelquefois pratiqué sous des formes assez différentes (par 
exemple, reconstituer un petit cochonnet en lançant des dés s). 

L'apparition des jeux sur micro-ordinateur et la magie des écrans de télé- 

vision lut ont fait connaître un renouveau certain : dis la version retenue. 

l'un des joueurs doit entrer un mot de longueur quelconque. L'ordinateur 
affichera alors des tirets à l'emplacement des lettres de ce mot et demande 
au deuxième joueur de proposer une lettre. Chaque réponse correcte fait 
apparaître la lettre à son emplacement exact dans le mot. et chaque ré- 
ponse fausse fait progresser le dessin de la potence. 

Pour gagner. 1l suffit de réussir à trouver le mot inconnu avant d'être 
pendu. 


LE PROGRAMME 

Le mot à deviner est introduit en début de programme (ligne 30) : des 
variables alphanumériques. en ligne 40. contiennent tous les éléments du 
dessin en notation hexadécimale. 

La boucle L160-80) fabrique un mot P$ qui contient des tirets à l’empla- 
cement de chacune des lettres du mot initial. 

La boucle 1 1120-180) s'occupe du dessin (plus ou moins complet. selon 
la valeur de P). La boucle K (140-160) transforme les valeurs hexadéci- 
males en éléments de dessin. 

Les lignes 190-200 affichent le résultat et arrêtent le jeu. 

La lettre essavée est entrée en ligne 210 et testée en ligne 239 : le sous- 
programme 260-280 remplace € haque uret par la lettre correspondante. 


POUR JOUER : 

Après le lancement du programme par RUN passer en majuscules. L'un 
des joueurs doit entrer son mot et taper ENTER. Des tirets sont affichés à 
l'emplacement de chacune des lettres du mot; et la question VOTRE 
LETTRE apparaît sur l'écran : l'autre joueur répond alors en proposant 
une lettre suivie de ENTER. 

Si la lettre est bonne. elle viendra remplacer un ou plusieurs tirets : sinon. 
la potence va commencer à se dessiner. 

Le mot exact sera affiché dans le cas où l’on aurait perdu. 


EXTENSIONS POSSIBLES : 

Il sera intéressant de constituer une liste de mots dans lesquels AMSTRAD 
pourra piocher au hasard : on pourra aussi améliorer le dessin (en redé- 
finissant les caractères, par exemple) et modifier le nombre d'essais permis 
selon la difficulté du mot. 


10 REM LE FÉNDU 

20 CLS:INK 2,0,9 

30 INFUT "VOTRE MOT :"5:R$ 

40 B$= "9B2098952095952095969E9C20952095 

9595959595959595949F9C20E120202020" 

90 F#$="" 

60 FOR I=i TO LEN(RS$) 

70 P$=p#+"-" 

80 NEXT I 

90 F=lli 

100 CLS 

110 LOCATE 1,3:PRINT F$ 

120 FOR I=11 TO F STEF -1 

130 PE$="" 

140 FOR KH=OQ TO € 

150 FES=FES+CHRS (VAL C'R'U+MIDS (HS, 1+6X (I 
1)+2XFH,2))) 

160 NEXT EH 

170 FEN 3 :LOCATE 22,12-I:PRINT FE$;:FEN 
1 

180 NEXT I 

190 IF F$=R$ THEN FEN 2:LOCATE 1,12:FRIN 

T "BRAVO! '":SOUND 1,478: SOUND 1,719: SOUND 
1,279:GOT0 290 

200 IF F=1i THEN INK 2,3,1S:FEN 2:FRINT " 

FERDU! LE MOT ETAIT :";R$:SOUND 1,478:(G0 

TO 290 

210 LOCATE 1,Z2O:PRINT CHR&# (20) 3::INPUT "V 

OTRE LETTRE :":S$:S#=LEFTS (UFPERS(S$+" " 
»),1) 

220 T=0:1#0 

230 I=INSTR(I+I,RS.SH): IF 1#:0O THEN G0S 

UE 260:GOT0 230 

240 IF T=O THEN F=F-1 

250 GOTO 110 

260 T=i 

270 FH=LEFTS(FS, 1-1) +SH+RIGHTS(FS,LEN(FS 
)I) 

280 RETURN 

290 GOTO 290 
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PBelote 





REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : jeu de cartes. 
Difficulté du jeu : facile. 


LE JEU : 

Le jeu proposé est plutôt une simulation. réalisée sur 32 cartes. de la 
distribution de + paquets de 5 cartes. [pourra être utilisé pour Fétude de 
problèmes faisant intervenir des donnes de 20 cartes sur 32. 


LE PROGRAMME 

En ligne 50. on crée un tableau pouvant contenir les 20 cartes. 

La boucle F170-130: assure le tirage aléatoire de 20 nombres. pris parmi 
32 : la boucle (100-120; vérifie que l'on ne réalise pas deux fois le même 
tirage. 

La deuxième boucle 1 (150-290) assure ensuite l'affichage. les noms des 
cartes étant affichés en clair. et la couleur étant décodée et affichée en 
clair, grâce aux lignes 200 à 260. 


POUR JOUER : 

[suffit de taper RUN pour obtenir immédiatement l'affichage de + pa- 
quets de 5 cartes chacun [une donne). Une double frappe ESC permet de 
reprendre la main. 

Un nouveau RUN permet d'obtenir une nouvelle distribution. 


se VS POSSIBLES : 

On pourra facilement mettre au point un affichage plus graphique en 
redéfinissant les caractères de FAMSTRAD : on pourra également se servir 
de ce programme comme d'un novau pour la mise au point de programmes 
de jeux de cartes sur l'ordinateur (qui pourra. si nécessaire. servir de 
partenaire : voir exemple du Poker. dans le même ouvrage). 


10 KEM HRELOTE 

20 RANDOMIZE(TIME) 

20 INF OSOUINE B,OLINE STE 

40 CLS 

30 DIM A(C20) 

609 LOCATE 12,12:FRINT "FATIENTEZ, JE TIK 
E" 

70 FOR Ii TO 20 

80 A(I)=1+INT(RNDK32) 

9Q IF Isi THEN 150 

100 FOR Jzi TO I-i1 

110 IF A(I)#A(J) THEN 80 

120 NEXT J 

130 NEXT I 

140 CLS 

150 FOR Ii TO 20 

160 SH=CHRS (227) 

170 Sæl+A(I) MOD 8 

180 RÉESTRS (S+6) +" Me ROSRIGHTS (RS, LEN CR 
$)-1) 

190 R$=LEFTS (K$, 2) 

200 IF S=S THEN R#$="VA" 

210 IF Szé THEN K#='"DA" 

220 IF S=7 THEN K$='"KO" 

230 IF S=8 THEN KR$="AS" 

240 IF A(I)£=24 THEN S6=CHR$ (226) 

250 IF A(I)£ielé THEN S$=CHRS#& (229) 

260 IF A(L)£e0 THEN S#=CHRS# (226) 

270 LOCATE Æ+LOXINTC(CI-1)/5),2XE+1:FEN € 
E+CCASC(SÉ) MOD Sel))s FRINT Rs" ":S$ 
280 Ee(E+1) MOD S$ 

290 NEXT I 

300 GOTOQ 300 
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Un taquin de calcul 





REFERENCES : 
Difficulté de programmation : movenne. 
Catégorie de Jeu : réflexion (2 joueurs). 


Difficulté du jeu : difficile. 
LE JEU : 


I se pratique à deux joueurs. l'un tenant le rôle du codeur. l'autre celui 
du décodeur. 

Le codeur part d'un nombre {proposé par AMSTRAD) et doit le trans- 
former à Faide de 5 opérations qu'il choisit lui-même. ainsi d’ailleurs que 
les opérateurs. 

Le résultat qu'il a obtenu et les opérations qu'il a utilisées seront affichés 
sur l'écran : le décodeur devra alors essaver de retrouver le nombre initial 
en effectuant les opérations en sens inverse. 


LE PROGRAMME : 

La ligne 50 permet d'obtenir l'entier de départ compris entre 5 et 20. 

Une boucle 1 (119-180) permet d'entrer successivement les 5 opérations. 
+ sous-programmes sont utilisés pour les calculs (aux lignes 1000 et 4000). 
Une boucle WHILE/WEND 120-140) assure la validité des opérations. 
Après chaque caleul. le résultat est affiché (seul le codeur devra regarder 
l'écran pendant cette opération) et le résultat définitif restera affiché pour 
le décodeur à la fin des calculs (ligne 170). 

La ligne 190 affiche les 5 opérations utilisées. ainsi que les opérateurs 
correspondants. 


POUR JOUER : 

On frappe RUN pour lancer le programme. 

Le nombre du début est affiché, puis la question ENTRER 5 OPERA- 
TIONS : on devra les entrer l'une après l’autre. sous la forme. par exemple : 
+ + suivi de ENTER. 

Le résultat sera affiché après chaque opération entrée. A la fin. les opé- 
rations entrées sont toutes affichées sur une même ligne. et le message 
BON COURAGE est envoyé à l'adresse du décodeur (il n'y a pas de contrôle 
au décodage). 


EXTENSIONS POSSIBLES : 

On pourra. bien sûr. songer à améliorer la partie décodage du programme 
en introduisant des bros sur le résultat : on peut aussi envisager de 
laisser AMSTRAD participer davantage en lui confiant le rôle du Chu ivre. 
etc. 





10 REM UN TAQUIN DE CAiCUL 

50 RANDOMIZE(TIME) 

50 INE OS: INE 3,18,2 

40 CLS 

0 X&INT (RNDXk16+5) 

60 FKRINT "NOMBRE INITIAL :"3X 

70 FRINT "ENTRER 5 OFERATIONS" 

80 FRINT "SOUS LA FORME +5, /2 ,x4 .,," 
90 FzX 

100 DIM K#$(5) 

110 FOR Izi TO 5 

120 WHILE INSTR("X+-/UM,LEFTS (R$ CI)+" "1 
))=0 

130 LOCATE 1,6:FRINT CHRS$& (18): : INPUT "VO 
TRE OFERATION :'";R#(I) 

140 WEND 

150 AZINSTRE"X+-/ULEFTS (RS (I),1)) 

160 ON À GOSUE 1000, 2000, 2000, 4000 

170 LOCATE 1,9:FRINT "NOMBRE OBTENU 5! 
sCHRS (20):F 

180 NEXT I 

190 FRINT:FRINT:PRINT "OFERATIONS :'"32FE 
N SPRINT K$(4)3" MsRSC1)E" MERS CS)" "5 
R$(H)a" "siRS (2) 

200 FEN 3: FRINT:FRINT: PRINT "BON COURAGE 


210 SOUND 1,478:SOUND 1,319: SOUND 1,579: 
FEN 1:END 

1000 F= FXVAL(RIGHTS (RS CI) .LENCRS CI) )-—1) 
) 

1010 RETURN 

2000 Fa F4+VAL (RIGHTS (R$(I),LEN(R#S(I))-1) 
) 

2010 RETURN 

5000 Fe F-VAL(RIGHTS (RS (I) ,LENCRS CT) )-1) 
) 

4010 RETURN 

4000 Fe F/VAL(RIGHTS (RS CI) ,LENCKS(I))-1) 
) 

4010 RETURN 
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Pendu inversé 





REFERENCES : 
Difficulté de programmation : moyenne. 
Catégorie de Jeu : jeu sur les mots. 


Difficulté du jeu : facile. 
LE JEU 


Le Pendu est un jeu de lettres très connu. présenté par ailleurs dans ce 
recueil. dans lequel il $'agit de deviner un mot caché par l'ordinateur et 
où € haque lettre non découverte vous rapproc he un peu plus de la potence. 
ler c'est AMSTRAD qui va chercher à deviner votre mot, mais il joue 
quelque peu au hasard et ne possè ede pas votre intuition : il faudra donc. 

en régle générale, beaucoup d'essais pour découvrir la solution. Pour aug- 
menter ses chances. on à fait appel à à une formule qui lui permet de ürer 
davantage dans les voyelles puis. dans les consonnes courantes, et. enfin. 
dans les consonnes plus rares. 


LE PROGRAMME : 

La ligne 40 permet d'enregistrer. dans une variable alphanumérique DS. 
les lettres de F alphabe t. dans l'ordre : vovelles. consonnes usuelles. autres 
consonnes, Le mot à deviner est introduit en ligne 60. 

La ligne 90 imprime des tirets aux emplacements des lettres à trouver. 
La boucle NHILE/NEND 100-220) assure la continuité de la recherche. 
La boucle en ligne 120 sert uniquement à simuler le temps de recherche 
d'une lettre. 

La formule, placée en ligne 130. permet de modifier légèrement la pro- 
babilité de tirage. en faveur des voyelles et des consonnes usuelles. 

La ligne 150 provoque un nouveau tirage. et la boucle F (180-200) réim- 
prime les urets et le s lettres trouvées. 

La ligne 210 incrémente le compteur d'essais. 

La ligne 230 affiche le nombre d'essais réalisés. en fin de partie. 


POUR JOUER : 

Lancer le programme par RUN et passer en majuscules. 

Entrer le mot à découvrir. suivi de ENTER. 

Des türets sont alors affichés ‘un par lettre} et AMSTRAD propose une 
première lettre, regarde sielle convient et continue automatiquement. jus- 
qu'à ce qu'il ait trouve. 

On pourra sortir du programme à tout moment en tapant ESC deux fois. 


EXTENSIONS POSSIBLES : 

I sera sans doute intéressant. pour de jeunes enfants, de prévoir une ver- 
sion non automatique où le joueur répondrait OUT ou NON pour chaque 
lettre proposée par AMSTRAD : on pourra aussi imaginer d' ajouter un 
affichage graphique. par exemple une potence où une voiture qui avance 
VéTs Un précipice. ete. 


10 REM FENDU INVERSE 

20 RANDOMIZE (TIME) 

30 CLS 

40 D$='"YAEITOUBCDFGLMNFRSTUWHEJQX 2" 

90 Cl: Té="" 

60 INFUT "ENTREZ LE MOT :":RS$ 

70 CLS 

80 TÉ=STRINGS (LEN (RS), "-—") 

90 LOCATE 1,6:FEN ZsFRINT T#:FEN 1 

100 WHILE TE :KRS 

1109 LOCATE 1,9:FRINT "JE CHERCHE 
ESSAI'":C 

120 FOR Jz1i TO 1000:NEXT J 

150 X=-b6x (RND£O, 7) 125% (RNDE O0, 5) 7 X (RND“O 
. 4) 

140 X=INTC(XXRND+1) 

150 EzMID#(D#,X,1)2IF Egz'"-" THEN 150 
160 DHELEFTS (DS, X—1) +"-"+RIGHTS (DS, 26-X) 
170 FRINT:PFRINT:FARINT "JE PRENDS : "53 FEN 
2:FRINT E$: SOUND 1,239:SOUND 1,21%: SOUN 
D 1,19O:FEN 1 

180 FOR Izi TO LEN(KS#) 

190 IF ES=MIDS(R#,I1,1) THEN TH#LEFTS(TS#, 
LL) +ER+RIGHTS(TÉ,LENCTH)-T):FEN 2: LOCAT 

E I,é:FRINT MID#(T#,I,1):FEN 1 

200 NEXT I 

210 CæC+i 

820 WEND 

230 LOCATE 11,20:FAFER SuPFEN 2: FRINT "TK 
QUVE EN'3C-13 "COUFS" 

240 SOUND 1,478:SOUND 1,:2319:SOUND 1,579 


250 GOTO 250 
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Nicomaque 





REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : jeu de réflexion (calcul mental). 
Difficulté du | jeu : moyenne. 


LE JEU : 

[utilise une propriété un peu particulière des entiers de 1 à 100 qui 
peuvent être identifiés sans ambiguïté par leurs restes dans les divisions 
par 3. 5 et 7. 

Le programme. proposé 1e1. est un pue codeur qui affiche simple- 
ment les restes d'un entier donné N dans les divisions indiquées. 

Le jeu consiste à essayer de découvrir Fentier (mais. dans cette version. 
vous n'avez droit qu'à un seul essai). 


LE PROGRAMME : 

La ligne 50 permet de confectionner l'entier. 

La boucle 1 (80-1101 calcule les trois restes successifs, et la ligne 100 
permet de les afficher sous une forme assez visuelle, aux bons emplace- 
ments. 

Les lignes 60 et 70 sont là pour indiquer de quelle division 1l s'agit. 

Le nombre proposé par le joueur est entré à la ligne 120 : ilest affiché et 
testé en ligne 130 l'affichage de fin de partie : BRAVO ou PERDU). 

La forme d'enveloppe sonore définie en ligne 150 permet de jouer les notes 
(SOUND) de façon déliée en ligne 160. 

Les lignes 170 et 180 S'occupent de gérer la prochaine partie. selon la 
réponse du Joueur. 


POUR JOUER : 

On lance le programme en tapant RUN. 

Les trois restes seront alors affichés sur la même ligne. symbolisés par des 
étoiles l'absence de carrés signifiant : reste 0). 

A la question VOTRE ESSAL on répondra en donnant un entier compris 
entre 0 et 100. suivi de ENTER. 

On obtiendra. en réponse. un affichage PERDU ou BRAVO. puis la ques- 
ton UNE AUTRE PARTIE (O/N). 


Pour faire un nouvel essai. on répondra O. ou N suivi de ENTER. 


EXTENSIONS POSSIBLES : 

On peut envisager de réaliser Le programme décodeur (on donne les restes 
et AMSTRAD devra vous donner N) et chercher si la propriété peut être 
étendue (en effectuant davantage de divisions. par exemple). 


10 KREM NICOMAQUE 

20 RANDOMIZE (TIME) 

30 ZONE 8 

40 CLS 

go Xe INT CHNDX100+1) 

609 FRINT TAB(6) "RESTE DANS LA DIVISION F 

AK" 

70 FRINTSFARINT MIN, PSN 7" 

80 FOR Izsil TO S 

PO AxX MOD C2XxI+1) 

100 FAFER Z:FEN O:LOCATE BXI, S:FRINT STK 
INGS (A, 2) 

110 NEXT I 

120 FAFER OPEN li:LOCATE 1,10: INFUT "VOT 

RE ESSAI :'",N 

150 FOFER SiPFEN ŒPFRINT:IF NeX THEN FKRIN 

T "ERAVO" ELSE FKINT "FERDU!" 

140 FAFER O2FEN 1 

190 ENV 1,1,15,10,1,-15,10 

160 FOR Ti TO 3: SOUND 1,415, 20,0, Li NEXT 
I 

170 FRINT: INPUT "UNE AUTRE FARTIE (O/N)" 

«FE 

180 IF LEFTS (UPFFERS (RS +" OU), LOU THEN 

40 
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Mastermind 





REFERENCES : 
Difficulté de programmation : difficile. 
Catégorie de jeu : logique ‘un seul joueur. 


Difficulté du jeu : difficile. 
LE JEU : 


Devenu un grand classique des jeux sur micro-ordinateur. ce Jeu développe 
le raisonnement déducuf : 1 faut réussir à trouver le plus vite possible un 
nombre de n chiffres ‘on pourra prendre n compris entre Let 6). en 
disposant à chaque essai de renseignements. 

En effet. AMSTRAD répondra en indiquant d'une part le nombre de chiffres 
qui sont. dans le nombre proposé. exactement à la même place que dans 
le nombre à découvrir. et. d'autre part, le nombre de chiffres qui figurent 
dans le nombre à découvrir sans être exactement au bon emplacement. 


LE PROGRAMME : 

Le choix du nombre de chiffres du nombre à découvrir est effectué aux 
lignes 40 à 60. 

Le nombre est fabriqué à la ligne 80 (il pourra v avoir des chiffres répétés). 
L'affichage est préparé par la ligne 100. 

La boucle NIHLE/WEND 120-240) s'occupe de la fin de partie. 

Une première boucle 160-210! teste les chiffres qui sont à la bonne 
place. 

Une deuxième boucle J7180-200) teste les chiffres qui sont présents et 
mal placés. 

Les compteurs sont aux lignes 170 et 190. tandis que l'emploi de la varia- 
ble EBS permet d'éviter les comptages en double. 

La lione 220 affiche le résultat. et la ligne 230 comptabilise les essais. 


POUR JOUER : 

On tape RUN et lon choisit la longueur du nombre désiré (de T à 6). suivie 
de ENTER. 

Après l'affichage NO. NOMBRE BON PLACE. on introduit son propre 
essai, suivi de ENTER. 

On obtient immédiatement la réponse (en cas de double chiffre, les résul- 
tats peuvent être un peu délicats à interpréter). 

On introduit ensuite le nouvel essai. et ainsi de suite. 

Lorsque l'on a trouvé, on obtiendra l'affichage TROUVE EN … COUPS. 


On peut sortir du programme à tout moment en tapant ESC deux fois. 


EXTENSIONS POSSIBLES : 

On peut chercher à éviter la présence de chiffres doubles dans le nombre 
à trouver. on peut aussi prévoir un changement de page automatique, avec 
rappel des résultats précédents : on pourra aussi réaliser des jeux ana- 
logues avec des mots. ou d’autres symboles (couleur, taille...). 


10 REM MASTERMIND 

20 DEFINT N 

30 RANDOMIZE (TIME) 

40 WMILE NET OK Né 

30 INFUT MOCOMBIEN DE CHIFFRES "3 N 

60 WEND 

70 EsliFaels X$eS TRS (INT CRNDX OS TN LOT CN 1) ) 

) 

GO XH&RIGHATS CXS$, LEN CX#)-1) 

9Q CLS 

LOO FRINT "NO, NOMBRE. HON 
FLACE" 

110 FRINT STRINGS (40,154) 

120 WHILE ES rXxS 

L3O LOCATE TL, SH PRINT Es CHKS (18); TAR(IS 

32 INFUTUN,ES 

140 Xx0:VEX 

150 ER$=ES$ 

160 FOK Iz1i TON 

170 IF MIDS(X$,1I,1)=MID#&(ES$,I,1) THEN X: 

X+1:MID#CERS, TI, 1)æ" "es GOTO Z10 

180 FOR Jxl TON 

190 IF MID#(X$,1,1)#MIDS(ERS,J,1) THEN Y 

mY+ le MIDSCERS,J,1)eæ", Mi GOTO #10 

200 NEXT J 

210 NEXT I 

220 LOCATE 24,S+F:FEN ZFRINT X3 TABÇCSE) : 

PEN SuPRINT Y:FEN 1 

230 EsE+liFeæ(F+1) MOD 18 

240 WEND 

280 SOUND 1,4783:SOUND 1,:2719:SOUND 1,79 

260 LOCATE 11-(N/2),22:FAFER S:FRINT "TK 

QUVE "yEgs" EN'"SsE-13 "COUFS" 

270 GOTO 270 


123 


124 


Idem 





REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : Jeu de caleul mental (2 joueurs). 
Difficulté du jeu : selon le niveau choisi. 


LE JEU : 

AMSTRAD choisit un nombre de n chiffres {selon le niveau de difficulté 
indiqué au début. Ce nombre le même au début pour les 2 joueurs) sera 
régulièrement décrémenté à chaque tour. d'une quantité également choisie 
au hasard par AMSTRAD en début de jeu : vous devez. à chaque coup. 
choisir une colonne ‘les dizaines. les centaines. ete.) et ajouter dans cette 
colonne un certain entier : le but est d'arriver à obtenir à un moment 
l'affichage d'un nombre avant tous ses chiffres ide ntiques. 

C haque résultat sera affiché un court instant. après quoi la main passera 
au joueur suivant. qui repartira de son précédent résultat. 


LE PROGRAMME 

Une variable numérique N'est dimensionnée à 2 en ligne 40. pour contenir 
les résultats successifs des deux joueurs. 

La boucle NIHLE/WEND 45-55) permettra d'entrer le niveau de diffi- 
culté choisi. 

Le nombre initial est confectionné par la ligne 70. La quantité qui mter- 
viendra dans les décréme ntations est obtenue en ligne 90. 

La ligne 120 teste si le résultat n'est pas trop petit. 

La line 130 affiche le numéro du joueur. 

Le nombre est affiché en ligne 140 et le jeu du joueur est entré en ligne 
160 (nombre de deux chiffres). 

La ligne 170 incrémente la colonne choisie. et la ligne 180 décrémente le 
nombre de la quantité choisie au départ. 

Le résultat sera affiché un court instant (ligne 210). La boucle F(260- 
280) permet de vérifier si tous les chiffres sont identiques. 

L'impression et la fin de partie sont effectuées en ligne 290, Les lignes 300 
et310 s'occupent du changement de joueur. 


POUR JOUER : 

Lancer l'exécution du programme par RUX. 

Le nombre initial sera affiché pour le joueur n° 1. qui joue en tapant XV. 

suivi de ENTER : x est le chiffre à ajouter. et vest le numéro de lac “olonne 
où il faut l'ajouter. 

Le résultat (provisoire s'ilest trop pe ut) sera alors affiché un court instant. 

et le trait passe au deuxième joueur. et ainsi de suite. On peut arrêter à 
tout moment en tapant ESC deux fois. 


EXTENSIONS POSSIBLES : 

On pourra étendre le jeu à plus de 2 joueurs, améliorer le choix du nombre 
intervenant dans la décrémentation. améliorer les divers contrôles. laisser 
les différents résultats affichés. ete. 


10 REM IDENM 

20 RANDOMIZE (TIME) 

40 CLS:H=1: DIM N(2) 

45 WHILE N£1 OK N:8 

SO INFUT "NIVEAU (2-7) s'"sN 

39 WEND 

69 Uz10:F=0 

70 NL) = INT CCUTN-UT CN 1) ) XKND+UT C(N--1) ) 

80 NOCH)E=N(1) 

9Q AZINT (SXURCN--1) XRND+U'F CN: 1) ) 

100 IF Hz=i THEN FaP+1 

110 CLS 

120 IF NCH)EUTIN-1) THEN NCH) EUTN-ARS (CN ( 

H)) 

150 LOCATE 1,2:PFRINT "JQUEUR'"':3FEN 1+H5F 

RINT Hy33FEN LeFRINT " ESSAI'"'3F 

140 LOCATE 1,6:FRINT "NOMERE ss: LOCATE 1 

SN, 6: FEN 1+H:FRINT NCH):FEN 1 

150 LOCATE 9,7:FRINT "7654321" 

160 LOCATE 1,10:FKRINT "VOTRE JEU (N ET C 
) SOUS FORME NC "32FEN H+is INPUT MM, RS&:F 

EN 1 

170 NCH)zN CH) +VAL(LEFTS (RS, 1) ) XUT (VAL CRI 
GHTS (RS, 1) )—1) 

180 NCH)=N CH) A 

190 IF NCH):UTN THEN N CH) EN CH) -UTN 

200 NCH)Æ=INT CN CH) ) 

210 LOCATE 1,1Z3:PRINT "RESULTAT 3 "3 NC) 

220 SOUND 1,478:SOUND 1,426: SOUND 1,779 

250 FOR J=i TO 12O0O0:NEXT J 

240 RK$=STRKS (CN CH) ) 

250 RH=RIGHTS (RS, LEN CR) 1) 

260 FOR Izi TO LEN(RS)-1 

270 IF MIDH(RS,I,1)2%MIDS CRE, I+1,1) THEN 
200 

280 NEXT I 

290 FRINT:FRINT:PEN H+lsFRINT "ERAVO'! JO 
UEUR"'; H: SOUND 1,478: SOUND 1,319:SOUND 1, 
479: END 

300 Hzi+(H MOD 2) 

310 GOTO 100 
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Reines sur l’échiquier 





REFERENCES : 
Difficulté de programmation : difficile. 
Catégorie de jeu : réflexion. 


Difficulté du jeu : difficile. 


LE JEU 

Le programme utilise un algorithme très performant pour résoudre un 
problème qui a donné du fil à retordre à des chercheurs. même aussi 
célébres que le mathématicien GAUSS. qui n'avait pas pu découvrir toutes 
les solutions. I s'agit de trouver toutes les manières de disposer des reines 
sur un échiquier. de telle sorte qu'aucune ne puisse en prendre une autre. 
Le programme proposé est très souple. puisque vous disposez même de la 
possibilité de choisir la taille de votre échiquier. et les résultats seront 
affichés à la fois sous forme visuelle et sous forme numérique. 


LE PROGRANLMIE : 

La ligne 30 vous permet de choisir la taille de Féchiquier. 

Une variable D sera dimensionnée en conséquence. en ligne 40. 

Une boucle d'exploration principale F (50-110) contient une sous-bouele 
180-100 qui réalise le contrôle de non-alignement igne 90). 

Si. au cours de Fexploration. on re copie un alignement. on revient en 
arrière, en utilisant les hignes 230 à 270 et on recommence. 

La boucle F130-210 assure l'impression de Féchiquier. et la boucle K 
(160-180. que l'on pourra éventuellement supprimer. assure l'impression 
du résultat sous forme d'un code numérique correspondant à la position 
des pièces dans chaque’colonne. 

La ligne 220 permet un arrêt après affichage de chacune des solutions. 


POUR JOUER : 

On lance le programme avec RUX. puis on tape la dimension de Féchiquier 
désirée. et on fait ENTER. 

[suffit d'attendre. avec pate nce (plus Féchiquier sera grand. plus lat- 
tente sera longue. La première solution sera affichée puis le programme 
s'arrête. et il faut appuyer sur une touche quelconque pour le faire repartir. 
Pour terminer exploration sans avoir eu toutes les solutions. 11 faudra 
taper ESC deux fois. 


EXTENSIONS POSSIBLES : 
On peut envisager de trouver des algorithmes pour tous les problèmes 
analogues {position de tours. déplacement d'un cavalier. ete}. en essavant 


d'utiliser un maximum de boucles WHILE/WEND. 


10 REM REINES SUR L'ECHIQUIER 
20 CLS:INE OSOSINE L,BILINE BO:INE 76 
15: SPEED INE 5,5 

30 INFUT "TAILLE DE L'ECHIQUIER :",5S 

40 DIM D(S) 

SO Izl+i 

6 D{(I)=l 

70 IF Isl THEN 110 

80 FOR Jæ1 TO I-1 

90 IF D(I)=D(J) OR (ABS(D(I)-D(J))æ=1-J) 
THEN 240 

100 NEXT J 

110 I=l+lrIF IéeS THEN 60 

120 CLS 

150 FOR Fzi TO S 

140 LOCATE 2XF+1,1:FRINT F 

150 LOCATE 1,2XF+15:FRINT F 

160 FOR Ezi TO S 

170 PEN 2:LOCATE 2xk+2, RXF+lLs PRINT "S"sF 
EN 1 

180 NEXT K 

190 LOCATE 2XD(F)+2,2XF+1:FEN G:FRINT "x 
M": PEN 1 

200 LOCATE F+1,20:FEN SPRINT RIGHTS (STAR 
H(D(FI),1)2:FEN 1 

210 NEXT F 

220 SOUND 1,478:SOUND 1,%19:SOUND 1,79: 
LOCATE 6,2%: INFUT "FAIRE “ENTER: FOUR CO 
NTINUER "RS 

BHO Isl-1 

240 D(I)=D(I)+1 

2560 IF D(I)é=S THEN 70 

260 Ill 

270 IF I£%O THEN 240 
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Mots 





REFERENCES : 

Difficulté de programmation : facile. 

Catégorie de jeu : jeu de lettres (pour 1 ou plusieurs joueurs). 
Difficulté du jeu : moyenne. 


LE JEU : 

ILest difficile d'imaginer plus simple dans son prine ipe que ce Jeu. qui se 
contente d'afficher dans le désordre les lettres prises dans une trentaine 
de mots. Mais essavez de Jouer, et vous verrez que ce n’est pas si facile, la 
difficulté variant évidemment selon la liste de mots que vous aurez intro- 


duits en DATA au préalable. 
LE PROGRAMME 


La ligne 40 permet de dimensionner la variable A$ (1) qui contiendra les 
mots. 

La boucle F (50) saisit la liste des mots (inscrits en DATA aux lignes 240 
à 280). 

La boucle 70-90 choisit trois couleurs d'encre différentes entre elles et 
différentes de celle du fond. 

La ligne 120 choisit un mot au hasard : la boucle 1 (150-220) contrôle si 
une lettre n'a pas déjà été urée. et reprend les lettres dans le désordre. 

La ligne 230 affiche les lettres. et la ligne 240 attend votre proposition. 
qui est testée en ligne 250. 

Le nombre d'essais est incrémenté en ligne 260. 

La fin de partie est contrôlée par la ligne 270, et le score est affiché en 
ligne 290. 


POUR JOUER : 

On lance le programme par RUN. Une série de lettres est affichée dans le 
désordre. et1l faut essaver de retrouver le mot correspondant (le temps est 
contrôlé). 

On tape le mot supposé. puis ENTER. et une nouvelle série de lettres sera 
affichée, si lon répond O à la question AUTRE ESSAT (O/N). 


Le score et le nombre d'essais sont affichés en fin de partie. 


EXTENSIONS POSSIBLES : 

On peut imaginer de minuter le temps d'apparition du mot, ou de faire 
défiler les lettres lune après Fautre sur l'écran. 

On peut aussi corser la difficulté en introduisant des JOKERS. jouer à 
plusieurs. tenir le compte des points. ete. 


10 REM MOTS 

20 RANDOMIZE(TIME) 

30 DEFINT E 

40 DIM A$(30):S=0:Ez=0 

50 FOR I=i TO Z3O:READ AS(I):NEXT I 

60 F=0:E1=0:E2=0:E3<0 

70 WHILE ((F-E1)X(F-E2)Xx(F-E5) x (Ei-E2) x ( 
Ei-E7) X (E2-ES) )=0 

80 E1=RNDX26:E2=RNDX26: E3=RKNDX26 

90 WEND 

100 CLSHINH OF: INE 1,E1:INE 2,E2:INE 3, 
EZ 

110 WHILE A$(Z)="" 

120 Z=INT(RNDX2:0+1) 

170 WEND 

140 R=AS(Z):AS=" "LAS CZ) =" "I VEERS 

150 FOR I=1 TO LEN(R#) 

160 Z=1 

170 WHILE MID#(R$S,Z,1)="-" 

180 Z=INT (RNDXLEN(R#) +1) 

190 WEND 

200 AS=AS+MIDS (R$,2Z,1) 

210 MIDS(R#,2Z,1)="-" 

220 NEXT I 

230 FRINT "LES LETTRES SONT :"3:FEN G:FR 
INT A$:SOUND 1,478:SOUND 1,426: SOUND 1,7 
JF: FEN 1 

240 LOCATE 1,6:FRINT "VOTRE SOLUTION : 
Mess FEN : INPUT MUSGSS#:FEN 1 

250 IF UFFERS(S#H)=0$ THEN SxS+1 


260 E=E+1 
270 LOCATE 1,11:INPFUT "AUTRE ESSAI (O/N) 
RS 


280 IF LEFTS$ (UPFERS (R#$+" "),1)#"0" AND E 
{30 THEN 60 

290 LOCATE 1,16:FRINT "VOTRE SCORE :":S: 
"EN"; E: "ESSAIS" 

300 SOUND 2,478@:SOUND 2,319:SOUND 2,379 

310 DATA JAMEON, ENERGUMENE, AFFILIE, ERUDI 
T,INSIFIGNIANT, FATALISTE 

320 DATA IMPRESSIONNANT, ALLECHANT, ANTICO 
NSTITUTIONNEL, EFEIRE, INTREFIDE, ORDINATEU 
FR 

330 DATA TREVE, BANDEROLE, SENATEUR, ACTUAL 
ITE, CANNIBALE, DIEDRE 

340 DATA IVRE, BATEAU, FLUMEAU, SIGNATAIRE, 
CONTRACTUEL, FROCES 

350 DATA CHALEUR, HIVERNAL, DESODORISANT, L 
UXATION, ERONITE, NOVICE 
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Permutations 





REFERENCES : 

Difficulté de programmation : movenne. 
Catégorie de jeu : réflexion. 

Difficulté du jeu : movenne. 


LE JEU 

AMSTRAD vous demande d'abord le nombre de lettres que vous désirez 
permuter pas plus de 12). À parur de là. il va vous afficher le nombre 
correspondant de lettres prises dans le début de Falphabet, d'abord dans 
le désordre DÉBUT) puis dans l'ordre (FIN). 

Vous devez réussir à remettre dans l'ordre les lettres données au début. en 
utilisant des permutations sur les n premières lettres à partir de la gauche. 
avec le moins d'essais possible. 


LE PROGRAMME : 

La ligne 40 permet de choisir le nombre de lettres, et la ligne 50 contrôle 
que lon n'en demande pas plus de 12. 

La ligne 80 réalise le brouillage. entrant au hasard la nouvelle position 
de chaque lettre. Les lettres sont ensuite ajoutées au fur et à mesure de 
leur tirage. dans une variable B$ ‘ligne 100). supprimées dans A et re- 
placées en CS. dans Le bon ordre (lignes 110-120). 

La ligne 140 contrôle le nombre de lettres de B$. 

Les affichages sont effectués aux lignes 160. 170 et 180. 

Le retournement est fait. lettre par lettre. dans la boucle F (210-230) : le 
résultat est placé dans B$ en ligne 240, affiché par la ligne 250 et comparé 
au résultat final en ligne 260, 

Le nombre d'essais sera affiché en fin de partie, grâce à la ligne 270. 


POUR JOUER : 

Après avoir tapé RUX. on obuent l'affichage de la question NOMBRE DE 
LETTRES DE 1 A 12): on répond en frappant N. suivi de ENTER. 
L'affichage suivant présente l'ordre initial (DÉBUT) et l'ordre à obtenir 
(FIN). 

On joue en indiquant le nombre de lettres à permuter à partir de la gauche. 
par exemple : sur un affichage imttal de GEABDFC. si l'on tape 3 et 
ENTER. on obuendra AEGBDFC. 

On poursuivra jusqu'à l'obtention de l'ordre désiré. 

Le score sera affiché en fin de partie ainsi qu'une question AUTRE PAR- 
TIE (O/N) : répondre O si l'on désire faire une autre partie. 


EXTENSIONS POSSIBLES : 

On pourra utiliser le même type de Jeu pour. par exemple. reconstituer un 
dessin caché dont les diverses parties seraient repérées par des lettres. On 
peut aussi réaliser des permutations plus complexes (par exemple le fait 
de permuter deux lettres permute les deux voisines de la lettre la plus à 
gauche, ete.). 


10 REM FERMUTATIONS 

20 RKANDOMIZE (TIME) 

AO CLS 

40 INFUT "NOMBRE DE LETTRES (DE 1 À 1%) 
UN 

HO IF NEZ OK N+12 THEN 40 

80 A$="ARCDEFGHIJEL es CHESTRINGS CLR, "M OMS 
SE UE 

70 CLS 

80 X:= INT CRNDXN-+ 1) 

90 IF MID (CAS, X, 1)" "THEN 80 

100 H$é=MIDS CAS, X, 1) +E$ 

110 MID# (C8, X, L1)=MIDSH (AG, X, 1) 

120 MID#S(A#,X, LD" " 

150 Sxl 

140 IF LENCHS)ESN THEN 80 

190 CHeLEFTS# (CH, LEN CES) ) 

160 LOCATE 1,S52FRINT "DEBUT Mas PEN: 
sFARINT H#:FEN 1 

170 LOCATE 1,7:FRINT "FIN ge EN 
sFRINT C#eFEN 1 

180 LOCATE 1,11: PRINT "FERMUTATION NUMER 
OO" SE FRINTS:FRINT "VOTRE QUANTITÉ "y CHR# ( 
18) 3: INPUT MUSLUIF LEN OK L£l THEN 180 
190 S=5+1 

200 A$=!"" 

210 FOR Isi TO L 

220 Ab=AS+MIDS (HS, LL, 1) 

230 NEXT I 

240 BHeAS+RIGHTS (HS, LEN CH) +1.) 

230 SOUND 1,478: SOUND 1,426: SOUND 1,7%: 
LOCATE 1,17:FRINT "RESULTAT s'"yssFAFER &t 
FEN SPRINT ER: FAFER OùFEN 1 

60 IF Héi:C$ THEN 1680 

270 SOUND 1,478: SOUND 1,319:SOUND 1,279: 
FARINTS PRINT MTROUVE EN'"3S-13 "ESSAIS" 

280 INFUT "AUTRE FARTIE (CO/N)'";KRS& 

290 IF LEFTS (RS, 1)#"0" THEN 50 
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Bridge 





REFERENCES : 

Difficulté de programmation : difficile. 

Catégorie de Jeu : réflexion. 

Difficulté du jeu : variable. selon le problème posé. 


LE JEU : 

Vous ne trouverez pas. dans ce programme. un partenaire pour vos bridges 
mais. plus exactement. une simulation pour l'affichage d'une donne : cet 
affichage est réalisé jeu par jeu. On peut. à partir de là. se poser toutes 
sortes de problèmes : annonces. jeu de la carte. ete. 


LE PROGRAMLME : 
Les lignes 50 et 00 définissent un jeu de 52 cartes. 
La table B$. en ligne 70. permettra d'afficher les symboles des couleurs et 
aussi d'améliorer la désignation de certaines cartes (10. valet. dame. roi 
et as. 
La boucle J 180-240) réalise le urage de quatre jeux de 13 cartes. 
La boucle L 00 210 réalise tirage et impression. 
La carte est choisie. parmi les ‘82 disponibles. par la boucle WIILE/ 
nt 110-130) imitialisée en 100. 

a ligne 140 calcule la coule ‘ur de la carte tirée. 
| es lignes 150 et 100 S'occupent de l'impression complémentaire dans le 
cas où lon tre un 10. un valet. une dame. un roi ou un as. 
L'impression est réalisée par les lignes 170 à 190. 
La liune 200 permet d'éliminer les cartes déjà tirées. et la ligne 220 réalise 
un arrét entre chaque affichage. 


POUR JOUER : 

On lance le programme par RUN. 

Une premiere série de 13 cartes est affichée verticalement. suffira d'ap- 
puver sur une touche quelconque pour obtenir la deuxième série de 13 
cartes. On procédera de même pour la troisième et la quatrième. 


EXTENSIONS POSSIBLES : 

On peut imaginer de représenter les T3 cartes sous une forme plus conven- 
tionnelle. 

On peut aussi ajouter la possibilité de faire des annonces (et de les compa- 
rer à celles de FAMSTRAD. par exemple). ou introduire des possibilités de 
jeu de la carte. v compris pour AMSTRAD. 


10 REM BRIDGE 

20 RANDOMIZE (TIME) 

30 INF 2B'OLINE 3,6 

40 CLS 

HO K$=x"2574567891VDKA" 

GO FER +R ER SE + RE + MOI! 

70 RS=CHRS (226) +CHRS (227) +CHKS (228) +CHKS 
(229) +"OAA0S" 

80 FOR Jæ1l TO 4 

90 FOR Ii TO 15 

LOO Xe 

110 WMILE MIDS CFR#, X, 1) "Oo" 

120 Xæe INT CRNDXLEN CH) +1) 

1#0 WEND 

140 SæTNTCCX-1) /13) +1 

150 TeX MOD 135 

160 TT L'EX (T0) 

170 LOCATE 10XJ-0, Lis FRINT MIDS (RS, X, 1) 


" 
nm 


180 IF Tée9 THEN FRINT MIDS CES, T4, 1) 
190 LOCATE 1OXJ-5, Tels PEN 2e (6x2 OK Sx#) 
Hs FECINT MIDS (H$,S,1):FEN 1 

200 MID (RS, X, 1)#"0" 

210 NEXT TI 

60 LOCATÉE 4,232 INPUT MFAIRE £ENTERS FQOU 
FR CONTINUER": 5% 

20 LOCATE 4,2%: FRINT CHRS$ CEQ) : 

240 NEXT J 
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Hanoï 





REFERENCES : 
Difficulté de programmation : difficile. 
Catégorie de Jeu : réflexion. 


Difficulté du jeu : difficile. 


LE JEU : 

[est présenté. ici. dans une version pour un joueur. On dispose d'un 
certain nombre de disques {7 au plus) et lon doit les transférer de la tour 
numéro À à la tour numéro 3. en respectant une seule règle : à aucun 
moment. un disque ne peut être recouvert par un disque de diamètre 
supérieur. 

Le nombre de coups n'est pas comptabilisé par ce programme mais. par 
contre, les coups illicites seront refusés. 


LE PROGRAMME : 

La variable D$. en ligne 40. servira à dessiner les disques. et les socles. 
Le nombre de disques estentré en ligne 50 et refusé Silva plus de 7 disques. 
La boucle 1170-90! permet de fabriquer une variable A$ (T) qui contient 
l'état de la première pile sous forme numérique (en ligne 30. trois variables 
sont prévues pour conserver l'état des trois piles). 

Les socles sont dessinés par la ligne 110 et les trois piles par les boucles 
emboîtées 130-180 et 1140-1701. 

Le contrôle du coup est effectué par la ligne 270 et l'état des piles est 
modifié par les lignes 280 et 290, 


POUR JOUER : 

Après un RUN qui lance le programme. on entre le nombre de disques 
demandé. suivi de ENTER. On obuent le dessin de l'état imitial et. à la 
question TOUR DE DEPART. on répond en donnant le numéro de la tour 
de départ. Ce numéro 1.2 ou 3) sera refusé si la tour est vide. Puis on 
tape ENTER et. à la question FOUR D'ARRIVÉE. on répond par le nu- 
méro de la tour d'arrivée. 

Si le coup nest pas possible. on sera obligé de recommencer à FOUR DE 
DEPART. Si le coup est possible. le déplacement est réalisé et l'on recom- 
mence. 


EXTENSIONS POSSIBLES : 

On pourra dessiner des disques de différentes couleurs. introduire un 
compteur de coups et. surtout. définir un jeu pour l'ordinateur. 

On peut aussi essayer de compliquer le jeu avec deux tiges de plus et deux 
Joueurs. chacun avant des disques de couleur différente. par exemple. 





10 KEM HANOI 

20 CLS 

F0 DIM AC): A(1) =: AC2)=9:ACI) = 
409 D$="": DÉ=STRINGS (9, RTE 

50 INFUT "NOMERRE DE DISQUES (MOINS DE 8) 
SUN 

60 IF NE OK N+7 THEN 50 

70 FOR I=0 TO N-1i 

80 A(1)=VAL(ISTRS(A(1))+STRS (N-T)) 
90 NEXT I 

100 CLS 


110 LOCATE 1,1S:FEN SPRINT D$:LOCATE LS 


SISS PRINT D$:LOCATE 28,1S:FRINT D# 


120 LOCATE S,1S:FAFER 2: PRINT MI LOCATE 


17,15:FRINT MSUMILOCATE 29,19: FRINT "Mas 
FAFER O:FEN 3 

150 FOR I=zOQO TO N-1 

140 FOR Jei TO 3 

150 BH=RIGHTS (STARS (A(J)),LEN(STRS (ACI))) 
1) 

160 IF LENCES):I+1 THEN LOCATE 12XJ-10,1 
AI: FRINT LEFTS# (DS, VAL (MIDS CH#, I+2, 1))) 
170 NEXT J 

180 NEXT I 
190 FEN 1 
200 LOCATE 1,18:FRINT CHRS$ (18) 32 INFUT UT 
OUR DE DEFART :'"50D 
210 IF D: OK Di THEN #00 
2820 IF A(D)=9 THEN 200 


230 LOCATE 1,201 PRINT CHRS (16) 3 2 INFUT "T 


OUR D'ARRIVEE : "34 

240 IF A:D THEN 200 ELSE IF (A1 OK A%5) 
THEN &30 

290 BSERIGHTS (STKS (A CD) ) ,LEN(STRS (A CD) )) 

260 CHERIGHATS CSTRS (A CAD) ,LENCSTAS (A CA) 2) 

1) 

270 IF RIGHTS CES, 1) RIGHTS CCS, 1) THEN 20 

© 

280 À (CA) VAL CCS+ARIGHTS (HS, 1)) 

290 A (D) a&VAL(LEFTS (RS, LEN CE) 1) ) 

#00 SOUND 1,478:SOUND 1,426: SOUND 1,79: 

GOTO 100 
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Course de chevaux 





REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de Jeu : hasard {plusieurs joueurs). 
Difficulté du jeu : aucune. 


LE JEU : 

On entrera un nombre de chevaux compris entre Let 9. et la course dé- 
butera immédiatement. 

I pourra v avoir des ex aequo. car l'on tiendra compte du fait que F'AMS- 
TRAD S'occupe de faire avancer les chevaux les uns après les autres. en 
commençant par le numéro 1: le classement sera affiché au fur et à mesure 
des arrivées et en tenant compte des ex aequo). 


LE PROGRANMLME : 

Une première boucle non formelle (80-170) affiche les chevaux dans leur 
position de départ. 

Une deuxième boucle 11100-18091 les fera avancer : la position de chaque 
cheval sera repérée par un chiffre où une lettre dans une variable alpha- 
numérique A$. 

La ligne 120 fera avancer les chevaux. 

La ligne 140 gere les arrivées. 

La ligne 150 réalisera les impressions. 

Le sous-programme 240-280 fait avancer le compteur des arrivées. et 
imprime les résultats. 


POUR JOUER : 

On lance le programme par RUN. 

A la question NOMBRE DE CHEVAUX : on répond par un entier de T à 
9, suivi de ENTER. 


La course se déroulera ensuite automatiquement. 


EXTENSIONS POSSIBLES : 

On pourra dessiner les chevaux avec un graphisme plus soigné. et les 
différencier par des numéros. 

On pourra aussi imaginer tout un système de paris. qui interviendra avant 
le départ de chaque course. 


10 KREM COURSE DE CHEVAUX 

20 RANDOMIZE (TIME) 

FO INE OO:INE 2,0,26 

40 CLS 

50 INPUT "NOMBRE DE CHEVAUX 2'"aNsIF NEO 
OK N°59 THEN 50 

0 AbatliFeos AO: Tel: Kz0 

70 JzeT 

60 AbzAS+"O'"s: Tai 

90 GOTO 150 

100 FOR Iæel TON 

110 IF MID#(A#,I,1)#"E" THEN 1680 

120 BH=CHRS (ASC (MIDS (AS, I, 1) )+INT CRNDX4+ 
1) 

LEO ABSLEFTS (AS, IL) +EHH+RIGHTS CAS, LENCAS 
)—1) 

140 IF B#zm"k" THEN GOSUR 240 

150 LOCATE ASC(MID#S (AB, I, 1))-46,2XI+3: FR 
INT " Mes FAFER SPRINT I: FAFER O 

160 SOUND 1,159,1,4,0,0,1:FOR Dz1 TO 60: 
NEXT D 

170 IF EeQO THEN JsJ+1l:IF JéeN THEN 80 EL 
SE Éel:GOTO 100 

180 NEXT I 

190 FeP4T 

200 TæO 

210 IF AËN THEN 100 

2%0 SOUND 1,478: SOUND 1,319:SOUND 1,379 
230 LOCATE 1,24:END 

240 AG=LEFTS (AS, I1) +'E+RIGHTS (AS, LEN (A 
H)—1) 

250 LOCATE 1,2XIH+2:PFEN Z:FRINT F:FEN 1 
260 Tzi: SOUND 1,2:59,2 

270 AFAXT 

280 RETURN 
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Accrochez les wagons 


REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : solitaire. 
Difficulté du jeu : facile. 


LE JEU : 

[ faut essaver d'accrocher. le plus rapidement possible. la locomotive à 
SON Wagon. Qui apparaissent tous deux en début de partie. en deux endroits 
plus où moins éloignés de écran. On devra pour cela déplacer la loco- 
motive en indiquant la suite des mouvements à effectuer (sous forme co- 
dée : pour une case vers le haut : B pour une case vers le bas : D pour 
une case vers la droite et G pour une case vers la gauche). 


On tapera. par exemple : BBGDHEHIE 


LE PROGRAMME : 

Les lignes 40 à 70 dessinent la locomotive et le wagon. 

La position initiale de la locomotive est définie par les lignes 90 et 100. 
celle du wagon par les lignes 110 et 120. 

La ligne 130 évite qu'ils soient initialement trop proches lun de Fautre. 
Les lignes 150 à 190 réalisent l'affichage du wagon et de la locomotive. 
Le test de fin est en ligne 200. 

L'utilisation de la fenêtre T'permet de protéger l'écran contre un scrolling 
provoqué par la rentrée d'une trop longue chaîne R$ (lignes 25 et 210. 
Les mouvements à effectuer sont entrés dans une variable alphanumé- 
rique R$. en ligne 210. et sont décodés dans une boucle L {240-280} pour 
être exécutés en ligne 270, 


POUR JOUER : 

RUN permet d'afficher les positions de départ de la locomotive et du wa- 
yon. 

On tape alors la série des déplacements à effectuer. sous la forme 
DDDHITIHIBHIGG. suivie de ENTER. 

La locomotive sera alors affichée dans sa nouvelle position. et l'on recom- 
mence, jusqu à ce qu'elle soit accrochée au wagon. 

On obtiendra alors l'affichage du score. 


EXTENSIONS POSSIBLES : 

[sera intéressant de prévoir la perte de la partie si. par accident. au cours 
du déplacement. la locomotive vient en collision avec le wagon. 

On pourra aussi prévoir plusieurs wagons et un ordre d'accrochage. jouer 
à plusieurs avec plusieurs locomotives. dessiner les voies ferrées. introduire 
des obstacles à contourner obligatoirement d'un certain côté. ete. 


19 REM ACCROCHEZ LES WAGONS 

20 RANDOMIZE (TIME) 

29 WINDOW #1,1,40,24,25 

30 DEFINT L,W 

40 D$xCHRS (1:39) +CHRKS (140) +CHRS (141) 

SO ABECHRS (142) +CHRS (147) +CHRS# (145) 

60 HBeCHKS (141) +CHRKS$ (140) +CHRKS (142) 

79 C$gæ"0 O0" 

80 NxOQ 

90 LYæl+RNDXET 

100 LXEeZ2+ANDX19 

110 WY=1+RNDXEZ 

120 WX=2+RNDX19 

150 IF AERS(LX-WX)#4 THEN 90 

140 CLS: FRINT CHRS (22) +CHRS$ (1) 

150 FEN Z:LOCATE WY,UWX:FRINT R$ 

160 LOCATE WY,UWUX+L1:FRINT C$ 

170 FEN S:LOCATE LY,LX-1: FRINT D$ 

180 LOCATE LY,LX:FRINT A$ 

190 LOCATE LY,LX+I:FRINT C$ 

200 IF LXeWX AND WYaLY-T THEN 3500 

210 CLS #is INPUT #1, "CHEMIN A SUIVRE (DG 
GHEE, ,,.,)2 "3 RS: RS=UPFERS (K$) 

220 X#0:VY#0 

23Q NeN+i 

240 FOR Ii TO LENCR#) 

2980 Xæ—(MIDS(RS,1,1)="EH" AND LX222) + (MID 
SRB, I,1)="H" AND LX:2) 

260 Y=-(MIDS(K$,1,1)="D" AND LY4358)+(MID 
BRS,1,1)="6G" AND LYr1) 

270 LXeLX+X:LYEeLY+Y 

280 NEXT I 

290 GOTO 140 

300 CLS #Iis:FRINT #1, TAR(9) "BRAVO! TROUV 
E EN'3N:s "COUPS" 

510 SOUND 1,478: SOUND 1,319:SOUND 1,379 
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Le loup et les agneaux 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : réflexion (2 Joueurs). 
Difficulté du jeu : moyenne. 


LE JEU : 

C'est un jeu assez connu qui peut être pratiqué indifféremment sur un 
damier 8 sur 8. ou 10 sur 10. [est présenté. ici. dans une version pour un 
damier de 8 cases : lun des joueurs choisit le loup qui se déplace suivant 
les diagonales. en restant sur les cases noires. d'une case à chaque coup. 
et qui peut avancer ou reculer, Les agneaux se déplacent également sur 
les cases s noire s. en diagonale. mais n'ont pas le droit de rec “ie r. Les cases 
déjà occupées sont inte dites | pas de prises). et il n°v a pas de saut. 

Le loup gagne S'il réussit à arriver sur la ligne du bas avant que tous les 
agNEAUX N'OCE upent celle du haut : les agneaux gagnent dans ce dernier 

cas, où S'ils arrivent à bloquer le loup. 


LE PROGRAMME : 

Une fenêtre de numéro 1. définie en ligne 29. permet de protéger les 
saisies. 

Une variable A$. en ligne 40 contient les positions de départ. 

La boucle 180-170 dessine le damier. et les lignes 190 à 220 placent le 
loup et les agneaux. 

La ligne 230 gere le changement de joue ur. 

La ligne 2 250) affiche JEU DU LOUP si c'est le joueur qui manipule le loup 
qui a le trait. et JEU DES AGNEAUX dans le cas contraire. 

Les lignes 280 à 300 où 310 à 320 analysent la réponse. en fonction du 
joueur concerné. 


POUR JOUER : 

RUN déclenche Farrét sur l'attente d'une entrée : 0 et ENTER si l'on veut 
que les agneaux commencent. et 1 pour le loup. Après quoi. le damier 
s'affiche et la phrase JEU DU LOUP (ASS. ZX) pour le loup et JEU DES 
AGNEAUX ND et NC) pour les agneaux. 

Les agneaux répondent par un numéro, suivi de D'ou G (pour droite ou 
gauche). 

Ainsi 2D provoque le déplacement de l'agneau numéro 2 qui monte en 
diagonale d'une case sur la droite. Le déplacement effectué est affiché. 
puis on obtientune question identique pour le loup qui répondra en tapant 
AS. Z ou \. suivant la direction choisie : 


L 
On devra veiller à ne pas sortir de léchiquier et à ne pas venir sur l'adver- 
saire, aucun contrôle n'avant été prévu. 


EXTENSIONS POSSIBLES : 

On pourra prévoir un repérage des cases, un graphisme plus soigné. des 
contrôles de non dépassement des limites du terrain. de non venue sur une 

case déjà occupée. 

On pourra aussi envisager de jouer sur un damier de 10 cases sur 19 cases. 
ce qui augmente légèrement la difficulté du jeu pour les agneaux. Mais 
l'extension la plus intéressante à réaliser sera certainement la réalisation 
d'un programme permettant à votre AMSTRAD de se comporter en ad- 
versaire honorable, soit avec le loup. soit avec les agneaux (et. dans ce cas. 
il sera possible de définir une stratégie gagnante pour AMSTRAD. 


19 REM LE LOUF ET LES AGNEAUX 
20 WINDOW #1,28,40,9,15 
50 INFUT MAGNEAUX (CO) QU LOUF (1)"3:5S 
40 Atz"618:850714" 
dQ CIS 
60 LOCATE 1,2S:FRINT " A KH C D E 
F GO H'"': 
70 FOR Izæi TO S:LOCATE L,EXI-1:FRINT IiN 
EXT I 
80 FOR Il TO 68 
9Q FOR J=1i TO 6 
100 LOCATE ŒXJ,EXI-E 
110 IF (I+J) MOD %=0 THEN FÔFER Z'ELSE F 
AFER 
120 FOR Nail TO S 
150 PRINT STRINGS CE, 255) 3 CHAKS (10) ; STRING 
(3,6): 
140 NEXT N 
150 FAFER © 
160 NEXT J 
170 NEXT I 
180 FEN 3 
190 FOR Ixi TO S 
200 LOCATE ŒEXVAL(MIDS (AS,2XI,1))+1,3XVAL 
(MIDS (AB, 2XI-1, 1) 2-1 
210 IF I£55 THEN FRINT RIGHTS(STRS CI) ,1) 
stELSE FRINT ML" 
220 NEXT I 
250 PEN I1iCLS #1: S=ARS(S-1) 
240 FKRINT #1," JEU" 
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290 IF Sx0 THEN PRINT #1," DU LOUF':FPRI 
NT #1," CAS, 2Z,X)" ELSE FRINT #1,'"DES À 
GNEAUX s FEINT #1," ND OÙ NG" 

260 LOCATE #1,6,5: INPUT #1, "MS RSS IF Si 

THEN GOTO 310 

270 Cx10 

280 AVAL (RIGHTS (AS, 2) )+CC+1 AND K#zæ!"X") 
+(C-1 AND K$="2) 

2970 ArA-(C+L AND K$x"A")-(C-1 AND K$x"S" 
) 

200 GOTO 330 

210 CHEXxVAL(LEFTS CR#, 1)) 

HeO AVAL (MIDS (AS,C-1,2))+(9 AND RIGHTS ( 
KR, 1) ="D")e (11 AND RIGHTS CRE, 1) "G") 

m0 MIDS$ (A$,C-1,2) “RIGHTS (STRS (A),2) 

340 GOTO 80 


Niveau 4 


Nom du programme 


Thèmes et particularités 





Tirage de dés 
La bombe 
Chapeaux 
Dessin de dés 
Le singe 


Le jeu du 15 


Clavier 

Adresse 
Anagrammes 
Zombies 
Ardoise magique 
Décomaque 
Evasion 
Répétitions 


Mathieu 


A travers 


Calculatrice 


Chasse au sous-marin 


Suffisamment souple pour être utilisé par- 
tout. 

Saurez-vous la découvrir à temps ? (1 
Joueur. 

Sovez très observateur. et vous réussirez (2 
Joueurs | 

Améliorer vos jeux de dés en incorporant 
ce programme. 

Un jeu de lettres pour deux joueurs. où il 
faut de bons réflexes. 

Un jeu de réflexion utilisant des chiffres. 
Apprenez à taper à la machine en vous 
amusant. 

Jeu de réflexe pour Tjoueur. très visuel. 
Un bon jeu de réflexe : pour deux joueurs. 
Un peu farfelu. mais très visuel (T joueur. 
Mettez au point vos créations graphiques. 
sans papier ni cravon. 

Pour vous éviter de sécher trop longtemps 
sur Nicomaque. 

Il vous faudra beaucoup de change pour 
réussir. 

Retrouver une séquence de chiffres de plus 
en plus longue. 

Vous ne savez pas dessiner ? Laissez faire 
votre ordinateur. 

Un jeu de stratégie pour deux joueurs. 

Un programme de simulation très réaliste. 
I vous faudra pas mal de réflexion. et 
beaucoup de chance. 
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Les techniques 
d'animation 
élémentaire 





SAISIE AU VOL D'UN CARACTERE FRAPPE AU CLAVIER : 
INKE VS 





Le principe d'un jeu graphique. en animation. est de laisser le jeu se dé- 
rouler tout seul. d'une certaine manière. pendant un certain temps. tant 
qu'aucune intervention n'a été faite par le joueur. 


[faut donc disposer de la possibilité d'observer S'il v a eu ou non inter- 
vention du joueur. sans pour cela interrompre le dé roulement du program- 
me. 


Dans le Basic AMSTRAD. cette propriété est offerte. par la fonction IN- 
KEYS$ qui effectue une serutation des touches du clavier et enregistre le 
nom de la dernière touche frappée. 


On pourra utiliser INKEYS de deux façons : 

® soit dans une boucle (réalisation d'un mouvement). On saisit INKEY$ 
et on le teste pour une éventuelle sortie de la boucle. 

® soit dans une attente : tant que INKEYS est vide (on n'a rien frappé) 
on attend. et lon sort dès qu'une touche a été frappée. 


[sera quelquefois nécessaire de taper plusieurs fois la touche pour qu'elle 
soit prise en compte. 


DÉPLACEMENTS D'OBJETS DE BAS EN HAUT SUR L'ECRAN : 
SCROLL 





[est difficile, si l'on travaille en Basie. de gérer le déplacement simultané 
de plusieurs objets sur l'écran {sinon on obtient vite une animation sac- 
cadée, à cause d’un temps de déplacement prohibitif). 


AMSTRAD réalise automatiquement un “Scrolling” (c'est-à-dire un dé- 
placement de l'ensemble de l'image) vers le haut. lorsque l'on écrit sur la 
dernière ligne en bas de l'écran. 


Cette propriété a été mise à profit dans plusieurs jeux : cela permet en 
effet. de déplacer d'une ligne vers le haut les divers objets (textes ou gra- 
phiques) présents sur l'écran à un moment donné. La ligne du haut est 
bien évidemment perdue. 


Si un objet doit rester immobile sur l'écran. 1l sera nécessaire de effacer 


dans sa nouvelle position. et de le replacer à son emplacementinitial. 
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Tirage de dés 





REFERENCES : 

Difficulté de programmation : aucune, 
Catégorie de jeu : lancer de des. 
Difficulté du | Jeu : aucune. 


LE JEU 

Le programme proposé ne réalise pas un jeu en lui-même. mais pourra 
être utilisé en sous-programme pour de nombreux jeux. 

offre simplement la possibilité de lancer de 1 à 9 dés. par simple pression 
d'une touche, Les dés sont ensuite affichés avec un graphisme très simpli- 


fie. 


LE PROGRAMME : 

La boucle WHHILE/WEND (60-80) saisit le caractère frappé au clavier et 
la ligne 100 le transforme en nombre (si ce n'est pas possible. le program- 
me refuse l'entrée). 

Une variable D non dimensionnée reçoit la valeur indiquée par chaque dé 
(igne 150). 

Une boucle 1 1120-1401 est utilisée pour dessiner un fond et une autre 
boucle PL (110-170 sert au tirage (tirage en ligne 150 et impression en 
ligne 1600. 

La ligne 190 offre la possibilité de refaire un ürage : elle n'est pas indis- 
pensable. 


POUR JOUER : 

On lance le programme par lordre RUX et on obtient l'affichage NOM- 
BRE DE DES A LANCER auque Ton répond en frappant un c hiffre. 

Le résultat est alors automatiquement affiché : il suffit de presser une 
touche quelconque pour recommencer le programme. 

Pour arrêter. 1lest nécessaire de taper ESC deux fois. 


EXTENSIONS POSSIBLES : 
On pourra. bien sûr. utiliser le canevas fourni par ce programme pour la 
réalisation de tout jeu se servant de dés (427, YAMS. CRAPS. etc.). 


10 
20 
50 
40 
50 
CER 
60 
70 
80 


90 FRINT CHRS$ (20) 3;:FAFER 1:FEN 


$:F 
100 
110 
120 
1350 
140 
150 
160 
1)) 

170 
180 
190 


REM TIRAGE DE DES 


RANDOMIZE(TIME) 

INF O,O:INE 1,26:INE 2,0 

CLS 

LOCATE 1,1:FRINT "NOMBRE DE 
s'ssAg="" 

WHILE A$='"" OK A$<"1" OR AS: 

AS=INKEYS 

WEND 


AFER J:FEN 2 


,8+J: FRINT 


N=VAL (A#) 

FOR I=1i TO N 

FOR J=i TO 5 
LOCATE 4KI-S5 
NEXT J 
D(I)=1+INT(RNDX6) 


DES À LAN 


men 


(L 


LOCATE 4XI--2, 10: PRINT RIGHTS (STRS (D( 


19 
NEXT I 
FAFER 0:PEN 
GOTO 50 


1 
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La bombe 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de Jeu : solitaire. 

Diffic ulté du jeu : moyenne. 


: 
LE JEU 

Vous êtes censé trouver. à laide d'un détecteur spécialisé. un colis radioac- 
uf piégé disposé par un vovageur mal intentionné. dans une chambre 
d'hôtel. Seul probléme. mais de taille : Fhôtel comporte un million de 
chambres {100%100%100 

Votre détecteur affiche. en permanence. un signal qui vous renseigne sur 
la proximité de la bombe. etle temps qui vous reste est affiché en perma- 
nence. décompté de 10 en 10. 

Pourrez-vous découvrir la bombe avant Fexplosion ? 


LE PROGRAMME : 

Les fenêtres Let 2. définies en lignes 40 et 50. serviront à l'affichage du 
signal et du temps. 

Une variable numérique R. non dimensionnée, contient les trois coordon- 
nées définissant la position du joueur. 

La position de la chambre contenant le colis piégé est définie par un tirage 
aléatoire de 3 variables AB. C. en ligne 70. 

La boucle 190-110 dessine le détecteur. 

Le signal de proximité est calculé en ligne 130 et la ligne 140 permet 
l'affichage des coordonnées de la chambre à découvrir. dans le cas où lon 
a perdu. 

La liune 150 permet l'affichage, à la fois du signal et du temps restant à 
courir. 

La ligne 100 provoque de plus en plus fréquemment appel au sous- 
programme de son en 350. 

La ligne 170 réalise le décompte du temps. 

La ligne 180 contrôle si Fon a trouvé ou non. 

La boucle 1220-2607 permet d'entrer les nouvelles coordonnées. en uti- 
lisant le sous-programme placé aux lignes 290 à 340. 


POUR JOUER : 

Après le lancement du programme par RUN. le signal et le temps (en 
principe 200) sont affiches. 

Le Joueur est alors en position x=0. v=0. z=0. et on devra introduire 
successivement les trois coordonnées x. v. z de la chambre à explorer. 

On fera. par exemple. 13 puis ENTER. 45 puis ENTER. ete. 

Le nouveau signal est alors affic ‘hé. et le temps est décrémenté de 10. 

On continuera ainsi. soit jusqu'au bon résultat (arrêt du jeu et fin de 
programme). soit jusqu ‘à l'apparition de 3 nombres (x.v.z) sans sortie du 
programme. ce qui signifie alors que l’on a perdu. 


EXTENSIONS POSSIBLES : 


Il sera sans doute indispensable d'améliorer le graphisme. d'ajouter une 


explosion (sonore et visuelle) pour symboliser l'éclatement de la bombe. 


d'afficher symboliquement la position dans l'hôtel. ete. 


10 REM LA EOMBE 
20 RANDOMIZE (TIME) 
30 DEF FN SS$(X) “RIGHTS (STRS (X) ,LENCSTRS 


(X))-1) 

40 WINDOW #1,1%,19,7:7:WINDOW #2,22,24,7 
7 

SO FAFER #1,1:FEN #1,3:FAFER #2,2:FEN #2 
10 


60 L=l100:Tæ200 

70 INT CRNDXL) : H= INT (RNDXL) : CE INT (RNDXL 

) 

80 CLS:FEN 3 

90 FOR Ii TO S 

100 LOCATE 11,S+I:FRINT STRINGS(16, 233 
110 NEXT I 

120 PEN 1! 

150 SeARS (CA/L+E+CXL) — CR C1) /L+R C2) +R CT) X 

L)):SæROUND (5,2) 

140 IF T=0Q THEN FRINT "FERDU, LA SOLUTIO 

N' :"3@:kR;C: SOUND 1,253: SOUND 1, 223: SOUND 
1,478, 20: END 

150 CLS #1: FRINT #I,FN SS#$(S)3:CLS #2: FR 
INT H2,FN SS%CT): 

160 EVERY INT(T/2) GOSUR 550 

170 T&T-INT (SOR (CL) ) 

180 IF SO THEN LOCATE 1,21:FAPER 2:FPEN 
BsFRINT MHRAVO'': SOUND 1,478: SOUND 1,319: 
SOUND 1,::79:END 

190 LOCATE 1,14%FRINT " — X 3: 
200 LOCATE 1,16:FRINT " - Y :" 
210 LOCATE L,18:FRINT " - 7 
220 FOR Il TO 3 

LEO K#ænm" 

240 GOSUE 280 

250 RCI) =VAL (RE) 

260 NEXT I 

270 GOTO 1:70 

2980 LOCATE 7,2XI+12:FRINT CHKS$ (243): CHRS& 
(18) ; 

290 WMILE A$<:CHRS (17) 

OO ASSINÉEYS 

Q FRINT A$#; 























30 WEND 
40 Abe" "sLOCATE 7,Z2XI+12: PRINT " ":RETU 


FIN 
350 SOUND 2,159, 1: RETURN 
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Chapeaux 





REFERENCES : 

Difficulté de programmation : moyenne. 

Catégorie de jeu : jeu de réflexe. pour deux Joueurs. 
Difficulté du jeu : facile. 


LE JEU 

L'idée en est tres simple : deux personnages se déplace nt Fun vers l'autre 
sur l'écran et se croisent. Au momentoù ile se croisent. 1lest possible qu'ils 
6e hange nt leurs chapeaux. IES'agit d'être le premier à dire stour ou non il 
vaeu échange de chapeaux lors du croisement. 


LE PROGRAMLME : 

La ligne 30 contient le dessin des deux chapeaux (dans deux variables 
alphanumériques CSL et CS(2)). 

La ligne 49 contient les symboles qui permettront de dessiner les person- 
nages sous forme de leur code ASCIL à 3 chiffres. 

La | lune 60 permet. S'IL v a lieu. Féchange des chapeaux. 

La variable F de la ligne 70 sert à repérer S'il v a eu échange ou non. 

Le dessin des deux personnages est réalisé par une boucle L (90-180), La 
boucle imbriquée réalise le dessin ligne par ligne et la boucle N assure le 
dessin de chaque ligne. 

La ligne 190 permet l'affichage simultané des deux chapeaux. 

Leur déplacement est réalisé par la ligne 200. 

Le test. permettant ou non le changement des couvre-chefs. est effectué 
en ligne 220. 

Les lignes 250 à 310 déterminent si le premier joueur avant appuyé sur 
une touche à gagné ou perdu. 


POUR JOUER : 

Lancer le programme par RUN. 

Les personnages commencent immédiatement à se déplacer Fun vers 
l'autre. 

Le joueur de gauche dispose des touches Let 2°et celui de droite, des 
touches 9 et 0. 

S'il v a eu changement de chapeau. les touches à appuyer seront 1 {à 
gauc ‘he et 0 (à droite 

S'il n° jap de changement. il faudra. pour gagner. être le premier à 
appuyer sur 2 {à gauche) et sur 9 (à droite). 

L'affichage me ra alors BRAVO GAUCHE ou BRAVO DROITE. ou. 
encore, PERDU GAUCHE où PERDU DROITE. 


EXTENSIONS POSSIBLES : 

I sera possible de prévoir un affichage couleur. avec une animation plus 
complexe des personnages. 

On pourra aussi complique r le jeu à plaisir avec plusieurs objets échanges 
de facon aléatoire faudrait alors en trouver la liste complète). 


10 REM CHAFEAUX 

20 RANDOMIZE(TIME):FRINT CHRS (22): CHRS (1 
) 

F0 CH(1)=CHRS (222) +CHRKS (207) +CHRS (223) :C 
$ (2) =CHR# (214) +CHRS (20) +CHRS (215) 

40 A$= "O3222403215015915614914914915514 
9193315015515614903:2149149052149153072147 
J0 X(1)=1:X(2)=55 

60 D#H=C$(1):CH(1)=C$ (2) :C$ (2) =D$ 

70 T=ABS(T-1) 

80 CLS:INH 1,1 

90 FOR Lei TO 2 

100 FEN 1:LOCATE X(L),2:FRINT C$(L) 

110 FEN 1+L 

120 FOR Iz=i TO 8 

130 LOCATE X(L),1+2 

140 FOR N=O TO 2 

150 FRINT CHR$& (VAL (MIDS (AS, 9XI-B+TXN, 7) ) 
) 5 

160 NEXT N 

170 NEXT I 

180 NEXT L 

190 INF, 1,24 

200 X(1)=X(1)+2:X(2)=X(2)-2: INK 1,24 

210 TE=O: WHILE TE&200:TE=TE+1:WEND 

220 IF X(1)=X(2) AND RND“#O.5 THEN 60 

230 IF X(2)=-1 THEN FRINT CHR#(7)::T=0:6G 

OTO 50 

240 R=INÉEYS:IF R$="" THEN 80 

250 FRINT CHRS$& (22): CHR$(O)D3:IF X(1)2=X (2 
) THEN 280 

260 FAFER Z:FEN 3:LOCATE 13,23:1F (R$="1 
" AND T=O) OR (K#="2" AND T=1) THEN PRIN 
T "BRAVO! GAUCHE '":SOUND 1,478: SOUND 1,37 
9: SOUND 1,319:FAFER O: END 

270 IF (R$="O" AND T=0) OR (R$="9" AND T 
=1) THEN FRINT "BRAVO! DROIT'":SOUND 1,47 

8: SOUND 1,379:SOUND 1,319:FAFER O:END 
280 PFAFER 3:PEN 1:LOCATE 14,23:1F R$="2" 
OK R$="1" THEN FRINT "PERDU GAUCHE" 

290 IF K$="9" OR K$="0" THEN FKRINT "FERD 
U DROIT" 

300 FOR I1=1 TO 200 STEF 2:SOUND 1,I,1:NE 
XT 

410 PAFER O© 
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Dessin de dés 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : lancer de dés. 
Difficulté du jeu : facile. 


LE JEU : 

Le programme proposé est surtout intéressant par son côté graphique 
puisqu'il permet de représenter. de façon très convenable. de T'à5 dés sur 
l'écran. en utilisant une technique de dessin un peu particulière. 

Chaque réponse à la question NOMBRE DE DES provoque immédiate- 


ment un nouveau lancer du nombre de dés indiqué. 


LE PROGRAMME : 

La ligne 70 permet de contrôler S'il y a eu où non action sur une touche 
de Las. 

Les lignes 90 et 100 initialisent les deux variables de dessin des dés. 
Dans la boucle {110-200 les lignes 120. 130 et 180 dessinent le cadre 
du dé. 

La ligne 140 réalise le tirage. et la boucle (150-190) dessine les points 
en relation avec le tirage réalisé {en appelant les variables A$ et B$). 


POUR JOUER : 

On lance le programme par l'ordre RUN. et, à la question NOMBRE DE 
DES. on répond en frappant une touche de T à 5. Les dés demandés sont 
alors représentés. et la question NOMBRE DE DES est de nouveau posée. 
[suffira de taper ESC deux fois pour sortir du programme. 


EXTENSIONS POSSIBLES : 

On pourra conserver la partie dessin utilisée dans ce programme pour 
réaliser toute sorte de jeux de dés. avec une représentation graphique de 
qualité convenable et facile à modifier si besoin était. 


10 REM DESSIN DE DES 

20 RANDOMIZE(TIME) 

FO INÉ OSO9SINE 1,2061INF ZSISsINE 5,0 

40 CLS 

50 FEN 1:LOCATE 1,15:FRINT "NOMBRE DE DE 
S 271": 

60 ASSINEEYS:IF A$z"" THEN 60 

7Q NaeVAL(AHI:IF N£l OK NS THEN 40 

90 CLS:FEN 3 

90 ABESTRINGS (7,52) +CHRS (RTL) +STRINGS (2, 
ES) +CHRS CLÉ) +STRINGS (8, 52) +CHRKS (LI) +CH 
RS CLS L) +<STRINGS CE, ES) +CHRS (271) 

100 Bhbz"121714524815528599" 

110 FOR Iæi TON 

120 LOCATE 8XI-7,3:FRINT CHARS (150) ; STRIN 
GS (5, 154); CHRS (156) 

150 LOCATE GBXI-7,9:FRINT CHKS& (147): STRIN 
G$ (CS, 154) 3 CHARS (152) 

140 X&INT (KNDXK6-+1) 

150 FOK Ji TO $ 

160 [IF Jéxms THEN SeSxVAL(MIDS CH$S,:3X CX-—1) 


170 IF Jéæs THEN FEN RiLOCATE SXI-6,2XJ+ 
SPRINT MID (A#,S,G):FEN & 

180 LOCATE GXxI-7,J+%: PRINT CHRS$(149):LOC 
ATE GXI-1,J+%: PRINT CHKS (149) 

190 NEXT J 

200 NEXT I 

210 GOTO 50 
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Le singe 





REFERENCES : 
Difficulté de programmation : moyenne. 
Catégorie de jeu : deux joueurs. 


Difficulté du jeu : difficile. 


LE JEU : 

[s'inspire de l'idée déjà ancienne du singe qui. frappant au hasard sur 
une machine à écrire, a des chances non Huiles de finir par écrire un texte 
signifiant. 


Le rôle du singe est. ici. tenu par AMSTRAD qui va afficher des groupes 
de 3 à 6 lettres pendant un te mps re lative ‘ment court. 

Si Fun des joueurs estime qu'il peut réussir à faire un mot avec les lettres 
proposées. 11 doit taper rapidement sur sa touche de jeu (1 ou 0). 

Le mot devra alors être accepté ou refusé par l'adversaire qui répondra 
JUSTE où FAUX. 


Chaque mot juste rapporte point. chaque mot faux enlève 1 point. 


LE PROGRAMME : 

La ligne 40 contient une liste VS des voyelles courantes. et une liste C$ 

des consonnes courantes. 

[sera possible de modifier ces deux listes pour augmenter. par exe mple. 
L fréquence d'apparition de certaines lettres (on pourra ainsi mettre deux 
= dans VS ou deux R dans C$. ete). 

se ligne 50 définit la longueur du mot (en principe. de 3 à 6 lettres. mais 

on peut également modifier cette longueur). 

La boucle 180-1307 permet la confection d'un “mot” en prenant une 
lettre. soit dans alphabet complet. soit dans la liste C$ (hgne 100. sont 
dans la liste VS ligne 110 

La ligne 150 temporise l'apparition du résultat. 

La ligne 170 gore la fin de partie. avec affichage du score. 

La liune 180 regarde si Fun des joueurs à réagr. 

Enfin. les lignes 210 et 220 comptabilisent les points de chaque joueur. 


POUR JOUER : 

On lance le programme en tapant RUN. 

La premiere série de lettres est alors affichée sur l'écran. Le joueur de 
gauche devra taper 1 Si voit qu'il peut réaliser un mot, celui de droite 
devra taper 0. 

Si rien n'a été frappé. une autre série de lettres sera affichée après peu de 
temps. 

Si l'un des Joueurs à frappé 9 où 1. la question (JUSTE ou (F)AUX est 
alors affichée en bleu pour le joueur de gauche et en rouge pour l'autre. 
On répond J'sile mot est correct. F si le Hot est incorrect. suivi de ENTER. 
Les points sont alors calculés par AMSTRAD. et la série de lettres suivante 
est alors affichée. 

Pour sortir du programme. il faudra taper P au lieu de O ou 1: le score 
final est alors affiché. 


EXTENSIONS POSSIBLES : 
On pourra modifier la longueur des mots. la fréquence d'apparition des 
lettres. le décompte des points. la règle du Jeu. ete. 


10 REM LE SINGE 
20 RANDOMIZE (TIME) 
30 MODE © 


70 CLS 

850 FOR Il TO X 

90 EbeCHRS CINT CKNDX26+65) ) 

100 IF RKND£O,4 THEN E$#MIDS (CS, INT (LEN (CC 

$) XRND+1),1) 

LIO IF RNDEO,S THEN ESMIDS (VS, INT(LEN CC 

#) XAND+1), 1) 

120 MéeMS&t+ES 

150 NEXT I 

140 LOCATE  CZO-LEN (M$) )/2, 6: FEN 6: FAFER 

ZIPFRINT M$: SOUND 1,478: SOUND 1,426: SOUND 
1,379 FAFER QùFEN 1 

190 TESOIWMILE TE£S00:TESTE+1: WEND 

160 AS=INEEYS 

170 IF A$zæ"FP" THEN MODE ls LOCATE 4,122PE 

N 2: FRINT "SCORE DE At"sAS:PEN GS:FRINT " 
- SCORE DE Es'"3 EH: SOUND 1,478: SOUND 1,379 
: SOUND 1,519: TEmO:WMHILE TEZ1O000:TEsTE4+L: 

WEND : END 

180 IF A$i3"O" AND A$<%"1" THEN 50 

190 LOCATE 2,18: FEN Œ-VAL (AH):FRINT "(J) 
USTE OÙ (F) AUX" 

200 KS=INEEYS: IF R$="" THEN 200 

210 AsA-(R$éz"g" AND Ag$g="1")+CRS= "FT" AND 
A$="1") 

220 BB (R$z="J" AND A$="0")+CR#z"F" AND 
A$="0") 

230 GOTO 50 
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Le jeu du 15 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : réflexion (2 Joueurs). 
Difficulté du jeu : movenne. 


LE JEU : 

C'est un jeu pour deux joueurs. assez ancien, qui était autrefois pratiqué 
dans les foires. On dispose d'un tapis de jeu de 9 cases. et chacun mise à 
son tour un jeton de sa couleur. sur une case disponible. 

Le prenuer des deux joue urs qui. avec exactement 3 Jetons, arrive à faire 
un total de 15. à gagné. 


LE PROGRAMME : 

La boucle 1 (50-80) dessine le terrain de jeu. et les lignes 90 à 100 s'oc- 
cupent de la gestion du tour des joueurs (numéro { ou 2 pour chaque 
joueur. et jeton X ou O correspondant). 

La ligne 119 attend le coup joué. 

La boucle L (120-140! vérifie la validité du coup. 

La ligne 150 teste la fin de partie. en cas de mateh nul, et la ligne 160 
refuse les coups non conformes {avec retour à la situation initiale, ligne 
00. 

La ligne 170 S'occupe de affichage du coup. et la ligne 180 l'enregistre 
dans une variable R$. La partie la plus intéressante du programme. qui 
pourrait servir à définir une stratégie machine. va de la ligne 200 à la ligne 
290 : on utilise 3 boucles emboîtées pour vérifier si l'un des joueurs a 
obtenu. avec 3 pions. un total de 15. Le changement de joueur s'effectue 
en ligne 300, 


POUR JOUER : 

Lancer le jeu en tapant RUN. 

Le terrain de jeu S'affiche. puis la que suon JOUEUR T : X. et le joueur qui 
a choisi les X devra donner le numéro de la case où 11 désire Jouer st elle 
est libre. son coup v sera enregistré. 

On obüent. ensuite, l'affichage JOUEUR 2 : O et le deuxième joueur pro- 
cède de la même façon. Si lun des joueurs gagne (total de 15 sur 3 coups). 
il obtient l'affichage BRAVO et la partie s'arrête. 

En cas de match nul. la machine affiche C'EST FINE 

On fera une autre partie en tapant RUN. 


EXTENSIONS POSSIBLES : 

Le plus intéressant sera sans doute d'essayer de définir une stratégie ma- 
chine {en essayant d'éviter que la mac hine ne joue toujours le 5 lorsqu’ elle 
doit commencer). 

On peut aussi. bien sûr. améliorer le graphisme et introduire des effets 
sonores pour les différents messages. 


10 REM LE JEU DU 15 

20 CLS 

F0 FeOoiKée"1274567899" 
40 O$=""iXg=e"" 

5Q FOK 1x0 TO 24 STEF 3 
60 LOCATE I+6, 1: FRINT CHRS& (150) +CHRS (154 
)+CHRS (156) : LOCATE I+6,2:FRINT CHKS& (149) 
HOUR CHRS (149) :LOCATE I+6, 2%: FRINT CHRS (1 
47) +CHRS (154) +CHRS (1525) 

70 LOCATE I+é6, 4: PRINT CI+5) /5 

80 NEXT I 

9Q LOCATE L',IOIFEN 2+F: FRINT "JOUEUR"' SF + 
lie 

100 FKRINT Mes 4 CHRS CECOI+FXR T7) 

110 ASEINEEVS:IF ASS" OR A$:"QU" THEN 1 
L1Q 

120 FOR Ix1 TO LENCKS#) 

150 IF AS=MIDS# (KE, I, 1) THEN GOSUE 170 
140 NEXT TI 

150 IF VAL CK#):0 THEN LOCATE 15, 20: FAFER 
BsFEN LiFARINT "C'EST FINI": TESOIWNMAILE T 

200: SOUND 1, TE, Li TE&TE+ 1: WEND: END 

160 GOTO 90 

170 LOCATE ŒXT+4, 24 PRINT CHARS CROH4HFX7 ) à 
IF Feel THEN O$#0$4+4A8 ELSE X$=X#$+A%$ 

180 MIDS (RS, L, 1) "0" 

190 IF Fal THEN T#e0$ ELSE Tex 

200 IF LENCTH)£E THEN 300 

210 FOR Isi TO à 

280 IF IÆLENC(TS) THEN 200 

230 FOR J=l+1 TO LENCT#) 

240 IF JeLENCTS#) THEN 200 

250 FOR EeJ+1 TO LENCT#) 

260 IF VAL(MIDS(TS,I,1))+VAL(MIDS(T#,J,1 
))+VAL (MIDS(T#,H, 1))=15 THEN 320 

270 NEXT E 

280 NEXT J 

290 NEXT I 

00 Fæ(F4+1) MOD ? 

210 RETURN 

220 LOCATE 12,20:FAFER 2Z+FsFEN OFRINT " 
ERAVO' JOUEUR "3 CHARS (2OZ+FX 27) 

E50O SOUND 1,478: SOUND 1,478: SOUND 1,579: 
SOUND 1,719 

340 FEN 1: FAFER © 
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Clavier 





REFERENCES : 
Difficulté de programmation : movenne. 
prof À 
Catégorie de jeu : jeu de réflexe apprentissage du clavier). 


Difficulté du jeu : difficile. 


LE JEU : 

Une reproduction du clavier de votre ordinateur apparaît sur Fécran : une 
flèche apparaît en dessous d'un caractère. qu'il convient de frapper au 
clavier, Plus Fon frappe vite. et plus la flèche se déplace rapidement (le 
temps écoulé depuis le début S'affiche en fin de partie). 


LE PROGRAMME : 

Une variable AS dimensionnée en ligne 50. contiendra la liste des touches 
concernées, Les valeurs des touches sont entrées de la ligne 60 à la ligne 
110 par appel d'un sous-programme situé en 300. 

Les boucles emboîtées 11120-16091 et 11130-150) dessinent le clavier. 
La ligne 180 définit la position de la flèche imprimée par la ligne 190. 

La touche frappée est testée aux lignes 220-230 et la flèche est effacée par 
la ligne 250, 

Les affichages de fin sont réalisés aux lignes 270 à 280. 


POUR JOUER : 

On lance le programme par RUX. L'on dispose alors de quelques secondes 
pour frapper la touche qui est au-dessus de la flèche. puis une autre flèche 
est affichée, ete. 

La durée de la partie n'est pas limitée il suffit de taper 0 pour obtenir 
affichage du score. et du temps total. 

Faire RUN pour une autre partie. 


EXTENSIONS POSSIBLES : 

On pourra envisager de faire elignoter les lettres. ou de les afficher en 
couleur, au lieu d'indiquer la lettre par une étoile, On pourra afficher les 
lettres devinées justes en bas de l'écran. et éventuellement s'entraîner à 
taper un texte qui défile en haut de l'écran. lettre par lettre. 


10 KEM CLAVIER 

20 RANDOMIZE (TIME) 

30 MODE © 

40 Te=0:Ss0:F=0 

30 DIM A$(10,23) 

60 S$="QWNERTYUI'"':J=1 

70 GOSUR 2300 

80 S#="ASDFGHJE":J=2 

90 GOSUE 500 

100 S$="ZXCVBNM, "ser 

110 GOSUR 300 

120 FOR Jzi TO 3 

150 FOR Izi TO 8 

140 FEN I: LOCATE 2X[I+J,SXJ:FRINT A$CI,J 
) 

150 NEXT IT 

160 NEXT J 

170 T#TIME 

180 X= INT CRNDX8+1) 2 Ve TNT CRNDX + 1) 

190 LOCATE ZXX+Y.SXV+S:FEN X:2FARINT CHR#( 
240) 

200 FOR Fei TO SO+RNDX80:AS%INEEYS 

210 IF A$="" THEN NEXT F 

220 IF AS=ASCX,Y) THEN SxS+1 

230 IF A$g="o" THEN 270 

240 FaFt+ 

290 LOCATE ZXX+Y, 2+SXYeFRINT "M" 

260 GOTOQ 180 

#70 MODE 1:FEN S:LOCATE 5,12: FRINT USIN 
G "#H## TROUVES JUSTES SUR ### ESSAIS":S, 
F* 

2890 LOCATE 11,14:FRINT USING "VOTRE TEMF 
GS 1 H###4H#"s ROUND C(TIME-T) /300) 

#90 SOUND 1,478: SOUND 1,379: SOUND 1,419: 
END 

#00 FOR Il TO 81:A$8(I,J)#MIDS(S#,T,I):NE 
XT I:RKETURN 
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Adresse 





REFERENCES : 
Difficulté de programmation : difficile. 
Catégorie de jeu : réflexe ‘pour 1 joueur 


Difficulté du | jeu : difficile. 


LE JEU 

Des chiffres. entre O et 9. vont apparaître au hasard. en divers emplace- 
ments de l'écran. IS restent affichés pendant un temps très court. Le 
joueur doit réussir à appuyer sur la touche numérique correspondante. au 
moment où le chiffre est affiché. 

Le chiffre tapé par le joueur sera alors affiché en grand format sur la 
gauche de écran et chaque réponse exacte rapporte 10 points. La durée 
de la partie est aléatoire etle score sera affiché en fin de partie. 


LE PROGRANLME : 

Les lignes 50 et 00 contiennent. dans deux variables alphanumériques C$ 
et B$. les références qui seront utilisées pour dessiner les chiffres en grand 
format. 

L'emplacement du chiffre tré par AMSTRAD est choisi aux lignes 80 et 
90. et le chiffre est üré en ligne 110. 

La ligne 120 réalise l'impression. et la ligne 130 détermine la durée d'af- 
fichage, La boucle NHILE/WEND (70-170) définit la durée du jeu. et la 
fin de partie est traitée par la ligne 190. 

La boucle 1220-2270 réalise le dessin grand format du chiffre frappé par 
le joueur et imprime dans la fenêtre # 2 définie en ligne 30, 

Le contrôle de l'exactitude du résultat esteffectué par la ligne 280. 


POUR JOUER : 

Le programme sera lancé par RUN: puis un premier chiffre apparait. après 
une courte pause, Vers le milieu de Fécran. Le joueur devra réagir suffi- 
samment vite, tant qu'il reste à l'affichage. et le retaper. Le c Hiffre qu'il a 
tapé se dessinera alors en haut à gauche de l'écran. en grand format. 

Si le résultat est exact. le joueur marquera 10 points. 

Le te mps de déroulement de la partie sera fonction des chiffres qui appa- 
raîtront à l'affichage. 

En fin de partie. le score sera affiché. I sera possible de s'arrêter à tout 
moment en tapant ESC deux fois. 


EXTENSIONS POSSIBLES : 

On peut envisager de modifier le jeu pour faire participer plusieurs joueurs. 
en modifiant éventuellement l'affichage et en codant les touches du clavier 
mises à la disposition de chacun des joueurs. 

On pourra aussi enlever des points à chaque résultat faux. modifier les 
règles de caleul du score et la durée du jeu. etc. 


10 REM ADRESSE 

20 RKANDOMIZE({(TIME) 

50 WINDOW #2,2,10,7,18:FEN 3S:PFAFER #2, 1: 
FEN #2,0 

40 Te100:Sx0:CSEeCHRS (145): CLS 

50 CheCH+CH+Cb+CH+STRINGS (4,32) +C$+C8+" 
"+0 

60 Hbzm"14441ETRITILT1R11H131441751R21731121 
411533%1414114151" 

70 WHILE T+=0 

80 X=1Z24+INTCRNDX20) 

YO Yæl+INTCKRNDX225) 

100 CÆe2+INT (RNDX26) 

110 N&INT CRNDX10) 

180 LOCATE XAY:2INE L,C:FRINT NS CHRS (7) 
130 FOR Izil TO RKNDX23504+4002NEXT I 

140 ASSINÉEYS:IF Az"! THEN 210 

150 TaT-N 

160 LOCATE X,Y4FRINT "OO "4 

170 WEND 

180 CLS 

190 FRINT:FARINT "VOTRE SCORE EST DE'"3:G3:" 
SUR 100" 

200 SOUND 1,478:SOUND 1,426:SOUND 1,579: 
END 

210 UeVAL CAHIICLS #2 

220 FOK Iel TO 5 

BiOQ Am EXVAL (MIDS CES, SXU+T, 1) ) 7 

240 FOR Exl TO &# 

20 LOCATE HE, 4, 2x lt le PRINT 42, MIDS (CS 
"As :) 

260 NEXT KE 

270 NEXT I 

280 LF UEeN THEN S=S+10 

290 GOTOQ 150 
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Anagrammes 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de Jeu : jeu de réflexe (2 joueurs). 
Difficulté du jeu : selon le niveau. 


LE JEU : 

Des lettres sont choisies au hasard par AMSTRAD. le nombre de lettres 
étant fonction du niveau de difficulté désiré. Puis les lettres du mot ainsi 
obtenu sont brouillées. et affichées au bas de l'écran : un nouveau mot est 
alors confectionné, de façon aléatoire. à partir des mêmes lettres et ilest 
affiché sous le premier. et ainsi de suite : les deux joueurs (gauche et droit, 
disposent chacun d'une touche {4 ou 0) et doivent la presser dès qu'ils 
voient s'afficher au bas de Fécran un mot déjà présent sur l'écran : leur 
score est alors évalué. et un message correspondant à leur résultat sera 
délivre. 


LE PROGRAMME : 

Le niveau du jeu escentré à la ligne 50. La boucle L 180-100) réalise le 
choix des lettres. 

Une deuxième boucle 1120-1907 effectue le brouillage. et la ligne 140 
permet de détecter la pression d'une touche. 

La ligne 200 affiche un nouveau mot. et fait monter d'une ligne sur l'écran 
les mots déjà obtenus. 

La ligne 240 cherche quel est celui des deux joueurs qui a pressé une 
touche. 

La boucle 250-270 explore les mots présents sur l'écran ligne par ligne. 
On obtient ainsi un mot quiest comparé au mot initial en ligne 260 et le 
résultat BRAVO apparait si e'est exact. 

Sinon. la partie S'arrête sur l'affichage PERDU (ligne 280). 


POUR JOUER : 

On lance le programme par RUN. 

On devra ensuite entrer le niveau de difficulté (en principe de T à 3) et 
faire ENTER. Les mots s'affichent en partant du bas de l'écran. et montent 
au fur et à mesure : si Fun des joueurs croit reconnaître dans le mot qui 
apparait un des mots déjà affichés. 11 devra immédiatement presser sa 
touche Lou 0. et son résultat sera affiché après un court instant. 

La partie sera alors terminée. on fera ESC deux fois pour récupérer le 
contrôle du clavier. 


EXTENSIONS POSSIBLES : 

On pourra utiliser d'autres affichages que des mots. modifier les temps 
d'affichage. faire participer plus de deux joueurs. améliorer le son et la 
couleur. ete. 





10 REM ANAGRAMMES 

20 RANDOMIZE (TIME) 

20 DIM A$(424) 

40 CLS 

DO INPUT "NIVEAU (DE 1 À 25) 2UiN 
60 IF N£1 OK N3 THEN 40 


80 FOR lei TO N+3 
90 SheGE4+CHRS CINT CRNDX26+65) ) 

100 NEXT I 

110 At": Des 

120 FOR Isi TO LEN(S#) 

150 Ne INT (RNDKLEN (9$) +1) 

140 DHeINÉEY# 

150 IF Déæ"i" OR D$x"0" TMEN 240 

160 IF MIDS CEH,N, Læ"ett THEN 1%0 

170 ASxAS+MIDS CES, N, 1) 

190 MIDS CHB,N, L)æ"" 

190 NEXT I! 

200 LOCATE LAZSe PRINT AS:PRINT CHRS (8) 

210 FOR Ie 1 TO 2E1A$8(1)æABCI+L):NEXT I: 

A$ (24) rA$ 

220 S$=<A$ 

230 GOTO 110 

240 IF Dé="i" THEN H$="JOUEUR DE GAUCHE" 
ELSE M#="JOUEUR DE DROITE" 

250 FOR Iei TO 25 

260 IF AS(CI)=S$ THEN LOCATE LEN(S#)+4,1I: 
FEN 2:PRINT "BRAVO! "5H: SOUND 1,478: SCQU 
ND 1,379: SOUND 1,319:GOT0 290 

270 NEXT I 

280 PEN Z:LOCATE LEN(S#)+4,74: PRINT "PER 
DU... "3H#:FOR Isi TO 6:SOUND 1,400,10,6 
X(I MOD Z):NEXT I! 

290 GOTO 290 
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Zombies 





REFERENCES : 

Difficulté de programmation : assez difficile. 
Catégorie de jeu : solitaire. 

Difficulté du jeu : assez facile. 


LE JEU : 

Les ZOMBIES sont des êtres malfaisants qui vont essayer de vous détruire. 
mais vous allez. vous aussi. essaver de les utiliser à votre profit. pour 
débarrasser votre espace vital des trous noirs qui lobscurcissent. Sur 
l'écran. est tracé un cadre qui définit votre espace vital. Dans ce cadre. 
vont apparaître de façon aléatoire. les ZOMBIES (ce sont des Z). les trous 
noirs des carrés bleus remplis de jaune) et le joueur (une tête). Les ZOM- 
BIES convergent vers le joueur pour essayer de le capturer. mais celui-ci 
se déplace plus rapidement qu'eux. etil va essayer de leur faire avaler tous 
les trous noirs. sans se faire prendre. 

La partie se termine. soit avec la disparition du joueur. soit par lélimi- 
nation de tous les ZOMBIES. 


LE PROGRAMLME : 

La position des ZOMBIES est définie par un tableau Z non dimensionné 
te'est inutile en dessous de 10). 

Les lignes 50 à 120 boucle P dessinent le cadre. les ZOMBIES et les trous 
noirs. 

La ligne 130 définit la position initiale du joueur. 

Une deuxième boucle 17150-240! réalise le déplacement du joueur. 

Les lunes 200 à 340 contrôlent le déplacement du joueur. 


POUR JOUER : 

Après avoir lancé Fexécution par RUN. le joueur devra se déplacer en 
utilisant les + flèches et en veillant à ne pas sortir des limites du terrain. 
I devra manœuvrer de façon à faire venir les ZOMBIES sur les trous noirs. 
sans se faire lui-même coincer. 

Pour arrêter la partie avant la fin. il suffira de taper ESC deux fois. 


EXTENSIONS POSSIBLES : 

I serait intéressant d'agrandir le terrain de jeu. d'augmenter ie nombre de 
ZOMBIES ou de trous noirs. d'améliorer les contrôles. de placer le joueur 
de façon plus aléatoire, éventuellement de modifier la règle. 

On pourra aussi. bien sûr. améliorer la qualité du dessin et introduire la 
couleur. 





10 REM ZOMBRIES 

20 RANDOMIZE(TIME) 

30 BORDER O2INE O,OSINE 3,1 

40 CLS 

30 FOR I=i TO 22 

6Q LOCATE I,I1:FRINT CHR$ (233 

70 LOCATE 1,I:FRINT CHK#$ (2335): LOCATE 2%, 

I: FRINT GURRNESE 

80 IF KRND£O. THEN LOCATE I, INT (RNDX20+2 
) : FEN Le AFER SPRINT CHR$ (2337) : : FAFER 0 

:FEN 1 

YO SxINT(RNDXx14+2) 

100 ZCINT(I/35)+1)=5+5S 

110 LOCATE I+1,22: PRINT CHRS$ (237): 

120 NEXT I 

130 E&INT(RNDXx18+2) 

140 Fz0 

150 FOR Iz1i TO 4 

160 FafF+2z (1) 

170 IF Z(I)=0 THEN 240 

180 LOCATE Z(I+4),ZCI):PRINT " "3 

190 Z(TI)=Z(I)-SGN(Z(I)-S) 

200 Z(I+4)z=7(I1+4)-SGN(Z(I+4)-H) 

210 IF TEST((Z(I+4)-1)Xx16+8, (25-72 (T))Xx16 

+8)z=1 THEN Z(I)&0:GOTO 230 

220 LOCATE Z(CI+4),ZCT)2FEN SPRINT "2" 

250 IF Z(I)=S AND Z(I+4)=k THEN LOCATE 2% 

Du li2t PEN Z:FRINT "VOUS AVEZ FERDU'":UWHILE 
TES 200: SOUND 1,TE, 1: TE=TE+1: WEND: END 

#40 NEXT I 

2930 IF Fx0Q THEN LOCATE 2,23:FRINT "ERAVO 
| VOUS AVEZ TUE TOUS LES ZOMBRIES. "3: SOUND 
1,478: SOUND 1,426: SOUND 1,379:SOUND 1,4 

78: SOUND 1,426: END 

2460 LOCATE K,S:FEN 2:PFRINT CHKS$& (224) 

270 FOR Izi TO 1ZOO:NEXT I 

280 LOCATE E,S:FRINT " " 

290 AS=INEEYS 

200 Emk- 2x (CASECHRS (SFT) ) — CABECHRSE (SF E) ) 
) 

10 IF Kézl OR Ki=23 THEN LOCATE 25,12:F 

EN es MDOMMAGE ! "3 CHRKS& (7) 3 : END 

20 GSeS- 2x (CASECHRS (SF 1) ) + CASECHRKS (LFO) ) 
) 

BEO IF Séel OR S:=22 THEN Ez25:G0T0 #10 

340 GOTO 140 
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Ardoise magique 





REFERENCES : 

Difficulté de programmation : movenne. 
Catégorie de jeu : dessin. 

Difficulté du jeu : facile. 


LE JEU : 

Commeleutre peut se mbler indiquer. il s'agit. tout simplement d'utiliser 
l'écran du téléviseur comme une ardoise. en manipulant un point sur l'écran 
suivant 8 directions. à l'aide des touches de T à 9 du pavé numérique. en 


utilisant la convention suivante : 


À 
LE 2. 
D 
+4 0+ 
I 3 
we à N 
Ÿ 


On peut choisir la couleur du point en appuyant sur une touche de À à N : 
etilest possible d'effacer tout l'écran en appuyant sur ENTER. 

On dispose ainsi de la possibilité de déplacer le point sur l'écran sans 
laisser de trace en appuvant sur la touche A 


LE PROGRANLME : 

La ligne 30 transforme les touches du clavier numérique en touches à 
répétition automatique de la frappe. 

La ligne 40 contient le choix des possibilités de couleur sous forme hexa- 
décimale. 

La ligne 60 imprime le point élémentaire clignotant. 

Les lignes 80 à 90 contrôlent les entrées. 

Les lignes 100 à 130 provoquent le déplacement. 

La ligne 140 vérifie que Fon ne sort pas des limites de l'écran. 

La ligne 160 imprime le point. 

Le sous-programme 180-190 choisit la couleur. 


POUR JOUER : 

On lance le programme par RUN : un point apparaît vers le milieu de 
l'écran. 

Si on frappe une lettre de À à N, la couleur du point change. 

La touche ENTER efface tout, et l’on recommence. 

On peut sortir à tout moment. en tapant ESC deux fois. 


EXTENSIONS POSSIBLES : 

On pourra. bien sûr. envisager d'écrire un programme identique en utili- 
sant des tracés de segments, prév oir un sous- programme qui permette la 
sauvegarde du déson, réalisé pour une utilisation ultérieure. etc. 


10 REM ARDOISE MAGIQUE 

20 MODE O:INE 15,26,0 

30 FOR Isi TQ 20: KEY DEF IL,i:NEXT I 

40 C$="0125456789ABCD" 

50 CLSIORIGIN 220,200: A0: B=0:C=4: XeQs Ve 
[@) 

60 FLOT X,Y,15 

70 ASSINEÉEYS:IF A$="" THEN 70 

SO IF  A$éz"A" AND A$iz'"'N" THEN GOSUH 18 
O:GOTO 60 

PO IF AS=CHARS (LE) THEN GOTO 50 

100 AzVAL (AS) sl: (A1) MOD GS: VEINT((CA-1) / 
3) MOD # 

110 Us is VeVet 

120 A=X:H=Y 

150 XæeX-+Us YeY+V 

140 Dz-(ABS(X)22319 AND ABS(Y)<:4199) 

150 IF DeO THEN X=A:Y=E 

160 FLOT A,H,C 

170 GOTO 60 

180 CaVAL (CHARS (38) +MIDS (C$, ASC (AS) -64, 1) 
) 

190 RETURN 
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Décomaque 





REFERENCES : 

Difficulté de programmation : facile. 

Catégorie de jeu : solution du programme Nicomaque. 
Difficulté du jeu : aucune. 


LE JEU : 

C'est une réplique au programme Nicomaque. proposé dans les pages 
pré cédentes : vous entrez les restes successivement dans les divisions par 
3. et7 d'unentier compris entre Det 100. et AMSTRAD calcule et affiche 
cetentier, Le procédé retenu peut d'ailleurs être généralisé (à vous de 
trouver comment 


LE PROGRANMLMIE : 

Les lignes 30 à 50 affichent quelques explications. 

La ligne 100 attend que vous frappiez un reste, qui sera refusé s'il est 
inc ompatible avee la division par le nombre affiché. 

La ligne 110 emmagasine les restes dans une variable non dimensionnée 
AS). 

La ligne 140 réaffiche les restes entrés. 

La boucle F1150-1707 dessine des petits carrés selon les restes introduits. 
Les lignes 210 à 220 gérent la fin de partie. 


POUR JOUER : 

On lance Le programme par RUX. Un texte de présentation est affiché, 
puis le message "RESTE DE. | DIVISIONS : 3.5. 7° s'affiche. 

On doit répondre 0. Lou 2 pour 3. puis de O à + pour 5 et de 0 à 6 
pour 7 

La solution est affichée dés que Fon a donné les 3 restes. 

Pour une autre partie. taper O à la question VOULEZ-VOUS UN AUTRE 
ESSALT O/X. 


Tapez N pour finir. 


EXTENSIONS POSSIBLES : 

On peut étendre le programme aux entiers de T à 1000. en utilisant les 
restes par 3. 5. 7 et 11: on pourra rajouter du son et de la couleur pour 
rendre le programme plus attravant. 


10 REM DECOMAQUE 

20 CLS:INÉ 2,9:PEN 2 

320 FRINT "VOUS DEVEZ ENTRER LES TROIS KR 
ESTES DANS" 

40 FRINT "LES DIVISIONS FAR 3, 5 ET 7, D 
"UN NOMBRE" 

SO FRINT "INFERIEUR À 100," 

60 I=3:S=1 

70 WHILE 148 

80 LOCATE 5,10:SOUND 1,478:SOUND 1,426:S 
OUND 1,379 

90 FEN (I-3)/2:FAPER 3:FRINT "RESTE DANS 
LA DIVISION FAR";l; 

100 AS=INEEYS:IF A$="" OR A$:"O0" OR A$:C 
HR# (47+1) THEN GOTO 100 

110 A(S)=ASC(AS)-48 

120 S=S+1:I=1+2 

130 WEND 

149 LOCATE 1,16:FAFER O:FEN 1:FRINT "RES 
TE : PAR % FAR 5 FAR 7" 

150 FOR Izi TO 3 

160 LOCATE S+9X1,18:FPAFER Z:FPEN (I-1):PR 
INT STRING#(A(I),735) 

170 NEXT I 

180 T=A CL) K7O+A (2) KPL+A CE) 15 

190 IF T#105 THEN T=T-105:GOTO 190 

200 LOCATE 10,22:FPAFER L:FEN 22FRINT " L 
A SOLUTION EST":T 

210 FAFER O:FEN L:LOCATE 4,24: INEUT "VOU 
LEZ-VOUS UN AUTRE ESSAI (O/N'"3R# 

220 IF UPFERS (R$)="O"THEN RUN 
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Evasion 





REFERENCES : 
Difficulté de programmation : facile. 
Catégorie de ] Jeu : solitaire. 


Difficulté du jeu : facile. 


LE JEU 

Votre seul probleme : réussir à traverser l'écran, sans qu'AMSTRAD vous 
ait auparavant touché par Fun des nombreux obus explosifs qu'il va tirer 
sur Vous. 

Vous pouve z vous dé plac er dans + directions (à l’aide des 4 flèches). et 
vous devez réussir à sortir du terrain par le bord droit, sans. bien sûr. avoir 
été touché une seule fois. 


LE PROGRAMME : 

La ligne 60 définit la position de départ du Joueur. 

La ligne 80 choisit la coordonnée horizontale de la case où AMSTRAD va 
ürer (liée à votre position). et la ligne 90 choisit la coordonnée verticale 
arbitraire. de cette case. 

Le déplacement du Joueur est contrôlé par les lignes 170 et 180. Sa po- 
sition actuelle sur l'écran. un symbole graphique) est imprimée par la 
ligne 190. 

La ligne 200 regarde S'ilest touché ou non. 


La boucle NIHILE/NEND (70- 210) effectue le contrôle de fin de partie. 


POUR JOUER : 

On commence l'exécution du programme par RUN. 

Un premier ür a heu. etce n'est qu'après que le joueur apparaît. représenté 
par un symbole graphique. 

Les + touches de direction (|. 7.) servent à déplacer le joueur. 

S'il est touché. on obtient. sur l'écran. le message PERDU et la partie 
s'arrête. 

S'il réussit à sortir par la droite de l'écran sans être touché, on obtient le 
message BRAVO. et la partie est également terminée. 

On peut terminer à tout moment en tapant ESC deux fois. 


EXTENSIONS POSSIBLES : 

La couleur et un graphisme plus soigné amélioreront considérablement 
l'attrait du jeu. On pourra aussi rendre le tir des bombes plus aléatoire. 
introduire des obstacles à contourner, ajouter des contrôles. faire partici- 
per plusieurs joueurs. ete. 


10 REM EVASION 

20 RANDOMIZE (TIME) 

30 DEFINT HE, X,Y 

40 CLS 

50 ORIGIN 0,200 

60 X=1:Y=13 

70 WHILE X438 

80 H=16%x(X-2) +TF2XRND 

90 K=184-RNDX568 

100 IF X£4 THEN 150 

110 FOR Jæi TO Z+RND*12 

120 FLOT H+16XRND,H+16XRND, 3 

130 SOUND 1,8%4,1,7,0,0,1 

140 NEXT J 

150 LOCATE X,Y:FRINT "." 

160 AS=INÉEYS 

170 X=X-— (AB=CHRS (SF 3) ) + (AS=CHRS (SFR) ) 

180 Y=Y- (AB=CHRS (UF 1) ) + CAS=CHRS (WF O) ) 

190 LOCATE X,Y:FEN Z:FRINT CHRS$ (249) : FEN 
1 

200 IF X>53 AND (ABS (H-16X (X—1) )+ABS(K-16 

X(12-Y))4=15) THEN FEN Z:FRINT "PERDU!'": 

WHILE S4254:SOUND 1,5, 1:S=S+1:WEND: END 

210 WEND 

220 LOCATE 1,2%:PRINT "BRAVO! ":SOUND 1,4 

78: SOUND 1,379: SOUND 1,319 
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Répétitions 





REFERENCES : 

Difficulté de programmation : facile. 

Catégorie de ] jeu : Jeu de mémoire {1 ou plusieurs joueurs) 
Diffic ulté du jeu : movenne. 


LE JEU : 

Des nombres vont apparaître un par un. 

Le joueur devra à chaque coup les répéter tous. depuis le début {ce qui 
signifie qu'il en aura un de plus à taper à chaque fois). 

Il “de ‘vra essayer de tenir le plus longtemps possible. Le meilleur score est 
mémorisé après chaque partie. ce qui permettra éventuellement de jouer 
à plusieurs. 


LE PROGRAMME : 

La ligne 40 appelle un sous-programme (lignes 1000 à 1060) qui donne 
la règle du jeu. 

La ligne 70 fabrique les chiffres. qui sont ensuite stockés dans une variable 
alphanumérique A$. 

La ligne 80 permet l'impression du dernier chiffre au hasard sur la qua- 
trième ligne de l'écran. et la durée de l'affichage est déterminée par la 
ligne 90. 

La ligne 110 attend la réponse du joueur, qui est comparée à la réponse 
correcte en ligne 120, 

La ligne 150 marque les points. 

La ligne 160 contrôle le meilleur score. 

Les affichages de fin de partie sont effectués de la ligne 200 à la ligne 230, 


POUR JOUER : 

Le lancement du programme par RUN provoque l'affichage de la règle du 
jeu. puis d'un chiffre qui disparait. L'appareil pose alors la question 
VOTRE SEQUENCE. 

On lui répond en redonnant le chiffre. suivi de ENTER. Sr c'est exact. on 
a un court instant l'affichage de EXACT. ATTENTION. puis un nouveau 
chiffre est affiché. qui s'efface. et de nouveau la question VOTRE $SE- 
QUENCE. On retape alors les deux chiffres déjà obtenus. suivis de EN- 
TER. 

On continue ainsi (3 chiffres. puis 4, 5. ete.) jusqu'à ce que l'on fasse une 
erreur. ce qui provoque l'affichage du score (et du meilleur score obtenu 
jusqu'à présent). suivi de la question AUTRE PARTIE (O/N) : on tape 0 
pour continuer. 

On peut aussi quitter le programme à tout moment. en tapant ESC deux 
fois avant l'affichage d'un chiffre. 





EXTENSIONS POSSIBLES : 
On pourra réaliser des jeux analogues et plus ou moins perfectionnés en 
remplaçant les chiffres par des lettres ou des couleurs ou des sons... 


10 KEM REFETITIONS 

20 KRANDOMIZE (TIME) 

FO MzQ 

40 GOSUR 1000 

JO ASEæ!"" 

64 MODE O:Hx0Q 

70 XæINT CRNDX1LO) 2 INE ES, BH TINT CRSXRND) : A$= 
AB+RIGHTSÉCSTRE CX), 1) 

80 CLS:LOCATE 1+RNDX20,4:FEN GSsFRINT X2F 
EN 1 

90 FOR T1 TO ZOO0+RKNDXZSOO0NEXT I 

100 CLS 

110 LOCATE 4,8:FEN 6: FRINT "VOTRE SEQUEN 
CE": FRINT:FEN 43 INFUT "USERS 

120 IF K$£rA$ THEN 180 

50 FARINT: SOUND 1,478: SOUND 1,426: SOUND 

Lau79s PRINT "EXACT, ATTENTION" 

140 FOR Iæil TO 4OO0:NEXT I 

150 Hetl+l 

160 IF MEH THEN MH 

170 GOTO 70 

180 MODE LINK 0,6: HORDER 6: FEN € 

190 TESO:WHILE TE£200:SOUND 1,TE, 1: TERTE 
+1: WEND 

200 INE ©, 1: BORDER 1LeFRINT "VOTRE SCORE 

EST DE Us 

210 FRINT:FRINT "MEILLEUR SCOKE ACTUEL": 
M 

220 FRINT: INPUT AUTRE FARTIE  CO/N) "RS 

IF KRS= UN THEN FRINT CHKS# (C7) 3: END 

H) GOTO 50 

1000 CLS:FEN 1 

LO10 FRINT "VOUS DEVEZ RESFECTER TOUTE L. 
4 SERIE DES" 

LOPO FRINT:FRINT "NOMBRES AFFARUS DEFUTS 
LE  DEBUT DU JEU" 

LOËO PEN 2isLOCATE 4,12: FRINT "IL Y EN À 

UN DE FLUS À CHAQUE FOIS" 

1040 LOCATE 4,29: FAFER LiFEN OFRINT "Ar 
FUYER SUR 2ENTERS: FOUR COMMENCER‘: 3 FAFER 
(e) 

1080 INFUT "MM, 

1060 RETURN 
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Mathieu 





REFERENCES : 

Difficulté de programmation : facile. 
Catégorie de jeu : dessin aléatoire. 
Difficulté du jeu : aucune. 


LE JEU : 

On utilise la définition d'une courbe en coordonnées polaires et la fonction 
DRAW pour obtenir sur l'écran des dessins aléatoires (de type fleur). plus 
ou moins élégants. 

Les deux paramètres principaux et B pourront être. si nécessaire, entrés 
à la main ‘instructions INPUT pour faire une étude plus systématique 
des différentes courbes possibles. 


LE PROGRAMME : 

Les 3 premiers paramètres Z.K et T. introduits en ligne 50. définissent le 
ravon maximum et l'occupation de l'écran. 

La boucle NIHLE/WEND (70-90) permet de choisir les + couleurs de 
fond d'encre, validées en ligne 100. 

Les variables aléatoires Aet B. choisies entre 9 et 2, de la ligne 110. 
définissent Fallure de la courbe : il pourra être intéressant de les introduire 
manuellement par exemple : 110 INPUT AB}. 

La boucle 11120-11701 réalise le tracé. point par point. Le ravon Rest 
calculé en ligne 130. et le passage en coordonnées cartésiennes est effectué 
aux lignes 140 et 150, 

L'affichage des points est réalisé en ligne 100. 

La ligne 180 imprime un message de fin. 

La ligne 210 permet de refaire un nouveau dessin. alors que les lignes 220 
et230 assurent un nouveau tracé sans effacement du précédent. 


POUR JOUER : 

On lance le programme en tapant RUN. 

Le dessin sera ensuite exécuté automatiquement. 

Le message eest fini” signale la fin du tracé. 

SI on veut un nouveau tracé. on tape 0. 

Si on veut un tracé sans effacement du dessin précédent, on tape une 
touche quelconque. 

Pour arrêter, faire ESC deux fois. 


EXTENSIONS POSSIBLES : 

On pourra essaver d'utiliser d'autres fonctions pour réaliser des tracés 
encore plus extraordinaires {par exemple avec simulation de la troisième 
dimension. 


10 KEM MATHIEU 

20 RANDOMIZE (TIME) 

20 ORIGIN 520,200 

40 DEG 

SO Ze7/ikelis Tes CLS 

60 FeOsE (1) 01 E CH) SOLE C5) 0 

70 WMILE (CECL)-F)XCECD)-FIX(CE CH)-F)X CECI 
DE CH))XCECL)"E CHDDXCE (2) -E (3) )#0 


NT CRNDX27)%E CH) INT (RNDX27) 

YO WEND 

LOO INE OF INE LE CL) INE BE COX INE EE, 
E C3) 

LLO A EX AND: Er X IKND 

120 FOR HeQ TO 560 

130 Ke&ZXSTN CHXT) 

140 X& INT CEXRXCOS CAXH) ) 

LS0 Ve [NT CEXERXS TN CEX HI) ) 

160 DKAW X,Y,C+1 

170 NEXT H 

180 LOCATE 1,212: PRINT "C'EST FINI... . 
190 SOUND 1,478: SOUND 1,379: SOUND 1,319 
200 ABEINEEYVSSTIF AS& UM THEN 200 

210 IF UFFERS (AS) ="O" TMEN 50 

ee0 Cæ(C+1) MOD 3 

0 GOTO 110 
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A travers 





REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : réflexion (2 joueurs). 
Difficulté du jeu : moyenne. 


LE JEU : 

Sur l'écran apparait un carré de 9 cases. avec sur le bord vertical des lettres 
et sur le bord horizontal des chiffres. 

L'un des joueurs manipule les chiffres, l'autre les lettres. 3 déplacements 
sont possibles pour les chiffres. et 3 autres pour les lettres. Les lettres 
peuvent se déplacer vers le haut. à droite et à gauche et les chiffres vers la 
droite. en haut ou en bas. 

Le gagnant est le premier qui arrive à faire sortir tous ses symboles (les 
lettres sortent en haut. et les chiffres à droite). 

[n'y a pas de prise. et les sauts ne sont pas autorisés : on ne peut pas non 
plus se placer sur une case déjà occupée. 


N N 
CHIFFRES —t LETTRES ES 
S 


LE PROGRAMME : 

Les positions des chiffres et des lettres sont enregistrées dans une table N 
(5. 5): les lignes 30 à 70 définissent les valeurs de départ. Les indices 0 
et servent à délimiter le terrain de jeu. 

Les lignes 100 à 140 dessinent le terrain de jeu et la ligne 170 affiche le 
joueur qui a le trait. 

La ligne 190 contrôle le coup joué. de même que les boucles Pet (200 à 
240. et le changement de joueur est assuré par la ligne 330. 


POUR JOUER : 

Le terrain de jeu sera affiché après la frappe de RUN et ordinateur attend 
le coup du joueur désigné. 

On entrera d'abord le chiffre ou la lettre représentant le pion à déplacer. 
suivi d'une indication de direction sous la forme N (pour Nord). $ (pour 
Sud). E {pour Est) ou 0 (pour Ouest. 

On pourra ainsi faire 2E suivi de ENTER. 

Si le coup est invalide. il ne sera pas exécuté, et le code du joueur restera 
à l'affichage : S'ilest autorisé. le déplacement sera effectué. et l'on obtient 
l'affichage correspondant au deuxième joueur. 

Le prenner qui aura réussi à faire disparaître ses 3 pièces aura gagné. 


EXTENSIONS POSSIBLES : 
On peut envisager d'étendre le jeu avec davantage de chiffres ou de lettres 
et d'améliorer les contrôles. On peut aussi définir une stratégie pour AMS- 


TRAD. 


10 REM À TRAVERS 

20 DIM NS, S)skei 

30 FOR I1=0 TO 5 

40 NCI,1)=ASCC"O")+IE NCA, I) =ASC CMP) HI 

30 NOI,O)E=LINCOS I)ELENCS, De liNCI, S) #1 

60 NEXT I 

70 N(4,1)#0 

80 MODE © 

90 FOK U=1 TO 4 

100 FOR Vel TO 4 

110 LOCATE 4XU, AXV-2SLIF N(V,U)#0Q THEN FE 

N Gé FRINT MU" ELSE FEN C2 (NOV,U) ES) FER 
INT CHRS (NCV,UDD:FEN 1 

120 NEXT V 

140 NEXT U 

150 LOCATE S,18:FEN 2+k 

160 FRINT "JOQUEUR AYANT LES'":LOCATE 6,19 

IF EÉxO THEN FRINT M"MLETTRES'" ELSE FKRINT 
M'CHIFFRES" 

170 LOCATE 1,22:PRINT CHRS$ (20): "VOTRE CO 

UF Cas STRINGS (- (kHze0), "OM" 3 UNE M: STRING# (— 
CHæl) "SN an) 

180 INPUT MM RS: RHeLEFTS CUFFERS (RS) 4" " 
s2)iLESLEFTS (RS, 1) RBERIGHTSE (KE, 1) 

190 IF (EzO AND Kéx"S") OK CEzl AND K#:" 

O") THEN FRINT CHK&#(7)::G0T0 170 

200 FOR Ix1i TO 4 

210 FOK Jx1 TO 4 

280 IF NCI,J)#ASC(LS) THEN 260 

230 NEXT J 

240 NEXT I 

2930 FRINT CHARS (7): :G0T0 150 

260 Ael:E#)J 

270 ele (Ke "S") «+ (HSE UN) 

280 Je (Rbe MEN) + (R#z"O0") 

290 IF (CIeO AND KO) OK (J54 AND Es1) TH 

EN 320 

300 IF NCI,J)E+O THEN FRINT CHARS (7) 3 : GOT 

O0 150 

310 NCT,J)ÆASC(L.#) 

220 NCA, En) #0 

HO ÉFARS (E-1) 

340 GOTO 80 
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Calculatrice 


REFERENCES : 

Difficulté de programmation : très difficile. 
Catégorie de jeu : simulation d'une caleulatrice. 
Difficulté du jeu : moyenne. 


LE JEU : 

[s'agit de la simulation. en affichage grand format. du fonctionnement 
d'une peute calculatrice de poche. de type + opérations. Les applications 
pe “di auogique sde ce programme sont évidentes et son fonctionnement très 
simple à maîtriser. 


LE PROGRAMME : 

En ligne 15. la foncuion VA (IS) est définie pour remédier (en partie} aux 
singularités de la fonction VAL du Basie AMSTRAD. 

Les variables B$ et C$. des lignes 20 et 30. contiennent les informations 
codées qui permettront le dessin des chiffres en grand format. 

Les lignes 60 à 150 S'occupent de la gestion des entrées. 

La boucle 12160-190 réalise la représentation. en grand format. des 
chiffres sur Fécran. au fur et à mesure des entrées. 

Le point décimaletle signe — sont gérés par les lignes 200 et 210. 

Le nombre total des symboles entrés est contrôlé par la ligne 220. 

Le résultat est inserit grâce à un programme fonctionnant en automatique 
qui se trouve aux lignes 270 à 390 (l'automatisme est géré par la ligne 
230. dans le programme principal). 

Les sous-programmes placés aux lignes 400-410. 420-430. 440-450 et 
400-470 effectuent l'opération indiquée. selon la valeur de Z (ligne 3107. 
Chaque résultat est mémorisé en AUF-1) igne 330). 


POUR JOUER : 

On devra lancer le programme par RUN. 

Puis. on tape les chiffres du premier nombre à entrer qui vont s'afficher 
un par un. au fur et à mesure [on ne pourra entrer plus de 8 symboles. v 

compris le signe — et le point décimal}, La frappe d'un signe opératoire 
laisse Faffic hage intact. mais l'introduction du prochain chiffre ou sym- 
bole provoque l'effacement immédiat et l'affichage du nouveau symbole. 
[est à remarquer que les chiffres s'introduisent de gauche à droite. sens 

de l'écriture usuelle. 

L'appare 411 accepte. comme signes opératoires les symboles +. —.*. /: le 
signe = provoquera l'affic hage du résultat. Les opérations sont enchaînées 

automatiquement. le résultat précédent étant pris en compte comme opé- 

rateur du calcul suivant. 

Pour faire une autre opération. 1l faudra taper ESC deux fois. puis RUN. 

Taper ESC deux fois pour sortir du programme. 


EXTENSIONS POSSIBLES : 


Protéger la saisie contre les entrées erronées (division par 0 ou plusieurs 


points décimaux à la suite). 


On devra, tout d’abord, améliorer l'affichage du signe — (représenté, 1er. 
par un trait), puis on pourra améliorer le dessin des chiffres (en utilisant. 
par exemple. le générateur de AMSTRAD). on peut aussi envisager une 
extension à plus de 8 chiffres. autoriser des opérations plus complexes (COS. 


SIN ...). ajouter des mémoires. etc. 


10 REM CALCULATRICE 


15 DEF FN VACIS) = VAL CIS+STRINGS (— CI$a "te" 


OR Han "0" 


un +CURS (ES 


30 Ha" 14441 SSII AIS IR I LSISIAA4LEISILULSILET 


411533314141141351" 

40 Fæl:lLeo:CLS 

50 NO: T=OsKeOsKR#ztt" 

60 ASSINEEYS:IF A$s="" THEN 60 
70 IF kel THEN NeO:R#æ "tr Keo 


80 IF Abz'a! THEN 260 

90 X=(1 AND Agt='"+")+(2 AND Aa") + CS 
D A$Se"x")+(4 AND A$x="/") 

100 KbeRS+AS 


LIO IF XE30 THEN €60 
120 IF Ka"! THEN A$=K#:GOTO 200 


13OQ IF A$<"," OK A$:"9" OK A$="/" THEN F 


RINT CHK#&(7)::G0T0 60 

140 IF NO THEN CLS 

190 IF AGenU OOK A$a"-" THEN 200 
160 FOR Ix1i TO S 


170 SREXVAL (MIDS (ES, I+SXFN VA CAS), 1))-2 


180 LOCATE N+1,I+4:FRINT MIDS#(C#,S,::) 
190 NEXT I 


200 IF Agæ"-" THEN CLS:LOCATE 2,7: FRINT 


STRINGS C2, 255) 


210 IF A$æ" "THEN LOCATE N+£, 9sFRINT CH 


KB C2) 


220 NEN-4X (NE 26) 


BAO LF TO THEN TeT+ls IF TELENCRS$S) THE 


N 380 
240 IF KEæl AND L£ésl THEN 50 
230 Tæ0Os:GOTO 60 
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260 IF Rhs"-" AND A(F)#0 THEN 120 
270 N=O:K=1 : 

280 IF CASe"x" OR A$x"/") AND EN VA(RS) 5 
O THEN A(F)#1:GOTO 300 

290 A(FI&FN VA(RS) 

300 IF X250 THEN ZeX 

310 ON Z GOSUR 400,420, 440, 460 

320 IF Atir"e" THEN FeF+i ELSE F«2 

330 A(F-L)SFN VA(RS) 

340 IF FN VA(R#H)=0 THEN ACF-1)A(F) 

250 RSESTRS (EN VA(RS)) 

360 IF LEFT# (RS, Le" "THEN RéeRIGHTS (RS 
.LEN CR#) 1) 





390 GOTO 140 

400 RBÆSTRS CA CF 1) + A CFD) ACFIEEN VA CKS) : 
Le 

410 RETURN 

AO IF Fri THEN R#=STRS (CA (CF -1) A CF) ) 5 AC 
FJ&FN VACKS) : LL: 

4:30 RETURN 

440 IF FErl THEN R#&#STRS (A (F1) KA CFD) A 
F)=FN VA CKR#) Lx 

450 RETURN 

460 IF F£il THEN R$&=eSTRS$ (A(F-1) /ACF)):A( 
FJ&=FN VA(RS):L:1 

47Q RETURN 


Chasse au sous-marin 





REFERENCES : 

Difficulté de progr ammation : moyenne. 
Catégorie de jeu : jeu de réflexion. 
Ditfie ulté du jeu : moyenne. 


LE JEU : 

Vous êtes à bord d'un bâtiment de surface. ces de traquer un sous- 
marin caché quelque part dans votre secteur : vous devez vous es 
jusqu’ à venir au-dessus du sous-marin et tirer à une certaine profondeur 
mais. attention : le sous-marin. lui aussi. est mobile : 1l ne coupera ses 
moteurs que lorsque vous serez exactement à sa verticale, pour ne pas être 
repéré. 


LE PROGRAMME : 

La boucle WHILE/WEND (30-50) saisit la dimension de la grille. 

La boucle 1 (80-140) affiche le terrain. 

La ligne 160 définit la position initiale du sous-marin : la higne 170 permet 
son déplacement. contrôlé par la ligne 180 ‘on reste dans les limites du 
terrain). 

La ligne 200 affiche votre position. 

Les lignes 240 à 260 contrôlent votre déplacement. 

La distance est calculée en ligne 270. affichée en ligne 280 (dans une 
fenêtre # 1) et testée en lignes 290 et 300. 

Le test de fin de partie est effectué à la ligne 330. 


POUR JOUER : 

On lance le programme par RUN ec on entre la dimension : la grille de jeu 
s'affiche. Vous êtes au départ en position (0.0 et vous vous déplacez avec 
les flèches. 

Après chaque déplacement. la nouvelle distance du sous-marin s'affiche : 
à chaque coup le sous-marin se déplace. Si vous réussissez à vous placer à 
sa verticale. la distance 0 est affichée et il ne bouge plus. 

Vous tirez en donnant une profondeur entière (entre 2 et 4. bornes 
comprises). Si vous le ratez. il se replace n'importe où. et on recommence : 
si vous le coulez. vous obtenez l'affichage BRAVO et la partie s'arrête. 
On peut arrêter à tout moment le programme en utilisant les touches ESC 
deux fois. 


EXTENSIONS POSSIBLES : 

Il'est possible de prévoir une amélioration du graphisme. d'améliorer les 
possibilités de déplacement du chasseur (un peu lent. dans cette version). 
de prévoir des parcours plus sophistiqués pour le sous-marin. de mettre 
un compteur de temps... 
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10 REM CHASSE AU SOUS-MARIN 
20 RANDOMIZE(TIME) 


20 WHILE H£1 OR H510 * 

40 FRINT:INFUT "DIMENSION DE LA GRILLE : 
“sH 

30 WEND 

60 CLS 


70 WINDOW #1,4+2X(H+1),359,H+2,H+5S: PEN #1 
:O:FAFER #1i,1 

80 FOR I=0 TO H 

90 FEN 1:LOCATE 2XI+4,1:PRINT I 

100 LOCATE 1,2XI+Z3:FRINT I:FEN 2 

110 FOR J=0 TO H 

120 LOCATE 2XJ+S,2XI+3:PRINT "." 

170 NEXT J 

140 NEXT I 

150 I=1:X=0:Yx0 

160 V=INT (RNDXH) : U= INT (RNDXH) 

170 U=U+I:VEV+I 

180 IF (USO OR U*H OK VO OR V*H) THEN I 
=-]:GOTO 170 

190 LOCATE 2ZXY+I3,2XX+3:1F Y£5O THEN PRIN 
po ant 

200 LOCATE 2XY+S5,2XxX+3:FEN SPRINT CHR$( 
255):FEN 2 

210 LOCATE 2XY+7,2XX+23:1F Y£:H THEN FRIN 
T7. 

220 LOCATE 2ZXY+5,2XxX+1:1IF X2:O THEN FRIN 
Tu." 

230 LOCATE 2XY+5,2XX+S:IF X2:H THEN FRIN 
Te M 

240 AS=INHEYS:IF A$="" THEN 240 

250 Y=Y-(AS=CHRS (SF3) AND YEH) + (AS=CHRSE ( 
F2) AND Y*0) 

260 X=X-(AS=CHRS (SF 1) AND X#H) +(A$=CHRS ( 
FO) AND X:*0) 

270 D=ROUND (SCOR (ARS (X-V) t2+ABS (Y-U) 72) ) 
280 CLS #1:LOCATE #1,14-H,1:PRINT #1, "DI 
STANCE'":FRINT #1,USING SPACES$(16--H)+"##" 
sD 

290 IF D=O THEN 320 

300 IF D£3 THEN 170 

310 GOTO 190 

320 LOCATE #1,13-H,3:PRINT #1, "PROFONDEU 
R':LOCATE #1,18--H,4:INFUT #1,"",D 

3350 IF D=INT(RNDX2:+2) THEN LOCATE 1,25:F 
RINT "EHRAVO!'"':SOUND 1,478: SOUND 1,379:S0 
UND 1,319:END 

240 TE=O:WHILE TE<20:SOUND 1,TE, 1: TE=TE+ 
1: WEND 

250 GOTO 160 


Niveau 5 


Nom du programme 


Horloge 1 


Horloge 2 

Combat aérien 
Affichage publicitaire 
Le jeu du missile 


Sous-marin 
Tic Tac Toe 


Smokey 
Course de voitures 
Danger spatial 


Diago 


Ocuts 
TFaquin de lettres 
Cibles 


Gouttes 
Obstacles 


Captures dans l'espace 
Anomalie 

Plusieurs en un 
Parcours du cavalier 


Othello 


Thèmes et particularités 





Précise. facile à régler. et très colorée. 

Ne jetez pas votre vieille télévision : 
transformez-la en horloge. 

Pas si facile de descendre un appareil qui 
bouge tout le temps. 

Si vous ne savez pas quoi mettre dans votre 
vitrine. 

Une mission bien périlleuse [un seul 
Joueur. 

Un classique des jeux vidéo Tjoueur. 

Un classique. mais pas sans intérêt (deux 
joueurs). 

Fumez sans risque. avec ce programme 
original pour un joueur. 

Un jeu de réflexe pas trop difficile. pour un 
Joueur. 

Serez-vous assez adroit pour éviter toutes 
les météorites. 

Etes-vous vraiment sûr de vos réflexes ? 
Ne laissez pas faire la pondeuse diabolique 
(un joueur). 

Un proverbe est caché dedans : à vous de 
le découvrir. 

Un peu d'adresse. beaucoup de chance : 
très visuel. 

Un véritable gag visuel. A exploiter. 
Beaucoup d'obstacles à éviter dans ce Jeu 
d'adresse pour un Joueur. 

Votre mission serait facile. sans ces dam- 
nées météorites. 

Exercez votre perspicacité dans la recon- 
naissance des symboles. 

Un terrain de jeu et les pions. pour deux 
Joueurs. 

Très spectaculaire. et instructif à plus d'un 
titre. 

Pour deux joueurs : il retourne les pions à 
votre place. 
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Dames 


Quatre à quatre 
Echecs 
Mur de briques 


Le lézard d'Alice 


Pour deux joueurs : classique 

Un jeu de réflexion un peu difficile. pour 
deux Joueurs. 

Un programme assez simplifié. pour deux 
joueurs. 

Un grand classique dans une version très 
complète. 

Beaucoup de hasard, mais très spectacu- 
laire. 


Les techniques 


particulières à 
l’'AMSTRAD 


UNE INSTRUCTION DE CRÉATION DE FORMES : L'INSTRUCTION 
SYMBOL 











Le Basie AMSTRAD permet de redéfinir les caractères affectés aux touches 
du elavier. L'ordre SYMBOL AFTER indique à partir de quel code ASCII 


on désire commencer. 
Le caractère de code N est créé par l'ordre : 
SYMBOL N. 12. 30. 45. 63. 30. 12. 30. 51 


Il a été défini ainsi : 1286432160 8 + 2 1 





L'ordre TAG. en indiquant que les impressions de texte doivent être effec- 
tué es à la position du curseur graphique. permet de mettre le « carac tère en 
n'importe quel point de l'écran par un simple PRINT CHR$SIN 7 ne 
pas oublier le point-virgule qui évite l'apparition de caractères parasites’. 


LES INTERRUPTIONS 





À certains instants. l'ordinateur peut abandonner le programme qu ‘ilexé- 
cute, pour ac ‘omplir une autre tâche. avant de reprendre son travail an- 


téricur. 
Contrôlés par l'horloge interne d'AMSTRAD. ces sous-programmes sont 


utiles lorsque le temps joue un rôle. 


L'ordre EVERY appelle un sous-programme à intervalle régulier par 


exemple pour simuler le battement d'une pendule’. 


[est possible de déconnecter temporairement Finterruption par un ordre 


DL. EI la rétablira. 
IDENTIFICATION D'UN OBJET SUR L'ÉCRAN : TEST 





La fonction TEST permet de faire la lecture directe de la couleur d'un 
I 
point de l'écran aux coordonnées X et Y. 
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Horloge 1 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : simulation. 
Difficulté du jeu : aucune. 


LE JEU : 

Le programme simule le fonctionnement d'une horloge digitale utilisant 
les caractères agrandis d'AMSTRAD. I présente la particularité de faire 
appel pour une bonne précision sur lheure. à l'horloge interne d'AMS- 


TRAD. 
LE PROGRAMLME : 


La ligne 60 permet d'entrer l'heure en tapant d'abord les heures. puis les 
minutes. puis les secondes, Le sous- programme 1000-1080 estutilisé pour 
définir les zones de saisie, contrôler les entrées et valider la saisie. 

La boucle WIILE/WEND 110-200) s'occupe des heures et celle comprise 
entre les lignes 120-180. des minutes. 

La boucle NIHLE/NEND 1130-1060) affiche les secondes, Le sous-pro- 
gramme (2000-2010 inerémente les secondes (la ligne 100 autorise le 
comptage des secondes dans le sous-programme (2000-2010! appelé grâce 
à un ordre EVERY en ligne 20. 

Le sous-programme 3000-3010! assure l'impression des heures. minutes 
et secondes sur deux chiffres. 


POUR JOUER : 

Faire RUN: la question © Entrez l'heure sous la forme HF: MM: SS 
est affichée, et on tape Fheure. puis les minutes. et les secondes. 

Le comptage du temps démarre dès la frappe de ENTER. 

On arrête en tapant ESC deux fois. 


EXTENSIONS POSSIBLES : 

On peut envisager d'afficher les secondes. ajouter une possibilité de réveil. 
prévoir un agenda automatique. faire apparaître un coucou chantant au 
moment du passage de Fheure. ete. 


10 REM HORLOGE 1 

20 EVERY 50 GOSUR 2000:DI 

F0 CLS 

40 FRINT:FRINT "ENTREZ L'HEURE SOUS LA F 

ORME HH: MM: SS" 

SO LOCATE 12, 4:FRINT Messe PEN 

60 FOR N=O TO 2:LOCATE 12+25XN, 4: GOSUE 10 

OO: TH=TS+RS:NEXT N 

70 FOR I=1 TO Z:X(I)=VAL(MIDS(T#,Z2XI-1,2 
)):GOSURH ZOO0G:NEXT I 

80 MODE © 

GO MOVE 11*X16,6X32+8:DRAUR 0,32, 2: DRAUR 

GXET, O0, 2: DRAWR O0,-232,2: DRAWR -9Xx32,0,2 
100 ET 

110 WHILE X(1)<:24 

120 WHILE X(2)2460 

150 WHILE X(5)460 

140 Ie: GOSUB 23000 

150 LOCATE 7,12:FRINT X#(1)3" "is X#(2)3" 
Ma xs C3) 

160 WEND 

170 X(5)=O:X(2)=X (2) +1: FEN 1+X(2) MOD 1% 

:1=2: GOSUEH 5000 

180 WEND 

190 X(2)=0:1=27:GOSUR 353000: X(1)=X(1)+1:1= 
1: GOSUE 5000 

200 WEND 

210 FOR Iæil TO 3:X(1)=0:GOSUB 35000:NEXT 
I 

220 GOTQ 110 

1000 K#$=!"":6#0 

1010 AS=INEEYS:IF A$="" THEN 1010 

1020 IF (N=O AND S=0 AND Ag$g<:"O" AND A&< 
#1" AND A$“:"2") THEN 1010 

1050 IF C(Nz1l OK N=2) AND S=0 AND A$<:"0 
M (AND VAL(AS):=6) THEN 1010 

1040 IF (Sz1i AND A$‘:"0" AND VAL (AS)=0) 

THEN S=S-1:G0OTO 1010 

1050 RH=RS+AH: FRINT ASi:S=S+1 

1060 IF S#2 THEN 1010 

1070 IF N=zOQ AND VAL(KRS#):24 THEN RUN 

1080 RETURN 

2000 X(3)=X (5) +1: FRINT CHRS (7) 3 

2010 RETURN 

5000 X$(I)="O"+RIGHTS(STRS(X(I)),LEN(STR 

HXC(I)))-1):XHCI)=RIGHTH(XB(I1),2) 

3010 RETURN 
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Horloge 2 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu é dessin. 

Difficulté du jeu : aucune. 


LE JEU : 

Transformer votre écran de télévision en horloge numérique à affichage 
grand format. grâce à ce programme qui vous permettra d'animer une 
vitrine. de f faire une horloge f fantaisie. et qui pourra se prè ter à bie n d' autres 
usages. 


LE PROGRAMME : 

La ligne 30 vous permettra d'entrer l'heure sous forme d'un entier de 
+ chiffres (par exemple : 1024 signifera 10 heures 24 minutes). 

Le sous-programme 1000-1030 est exécuté toutes les secondes. tandis que 
le sous-programme 2000-2210 l'est toutes les minutes. 

Les lignes 2070-2190 réalisent le dessin. en décalant Fimpression au fur 
et à mesure (à l'aide de la variable K. incrémentée en ligne 2180). 

Les lignes 2000 à 2040 assurent la progression de l'heure. 

La ligne 1000 effectue l'affichage de deux points clignotants pour les 
secondes. 


POUR JOUER : 

Des le lancement par RUX. le programme se place en attente de l'heure : 
on tape et on attend le top pour appuyer sur ENTER. 

L'heure S'affiche alors assez rapidement et l'horloge est en route. Pour 
l'arrêter. 11 faudra appuver sur la touche ESC deux fois de suite. 

L'heure sera entrée sous forme d'un entier avant impérativement + chiffres. 
pour 5 heures 6 minutes. on veillera à taper 0506 suivi de ENTER. 


EXTENSIONS POSSIBLES : 
I sera intéressant de modifier le programme pour en faire un réveil, avec 
alarme : on peut aussi améliorer le graphisme. introduire la couleur. 


10 REM HORLOGE 2 
20 CLS 


30 INFUT "HEURE ( FORME XXXX )D"5A# 


40 GOSUE 2050 


50 EVERY 50,1 GOSUR 1000 


60 EVERY SOX60,2 GOSUER 2000 


70 GOTO 70 


1000 LOCATE 20, 4:FAFER Ha FRINT " "eLOCAT 


E 2O,6:FRINT " ":FAFER 2 


1010 SOUND 1,475, 1 

1020 H&ARS (CH) 

1030 RETURN 

2000 Ax1l+VAL (CA) 

2O1Q IF A&2560 THEN 4x0 


2020 Abe" OOO'AHRIGHTS (STRSE (A), LEN CSTRS# (A) 





2OIO ASSRIGHTS CAS, 4) 





2040 IF RIGHT#(A$,42)="60" 


THEN AS=RIGHTS$ 


(STE (VAL (LEFTS (AS, 2) )+1),2) +"Q0" 


2080 CLG O:FAFER 

2060 El 

2070 WHILE K&S 

2080 AVAL (MIDS (AS,E, 1)) 


2090 IF A1 AND A£%4 THEN LOCATE 6%xk4+4, 


1: PRINT "  # 
2100 FOR J=1 TO 5 


2110 IF AO OK (AS AND A%7) THEN LOCAT 


E 6XE+4,J:FRINT " 


2120 IF ASS AND A£%6 THEN LOCATE 6XE+6, 


J:FRINT "M" 


2180 IF À MOD 2x0 AND A4 THEN LOCATE 6 


KE+4, J+4s PRINT "0" 


2140 IF AS:R THEN LOCATE 6%xE+6,J+4: FRINT 


2180 NEXT J 


2160 IF Aïl THEN LOCATE &GXE+S, SsFRINT " 


2170 IF AS%l AND A%%4 AND A#%7 THEN LOCA 


TE 6XK+4,93:PRINT "  " 
2180 K=k+1 

2190 WEND 

2200 SOUND 1,478 : SOUND 
8 

2210 RETURN 


293: SOUND 1,255 


nd 
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Combat aérien 


REFERENCES : 
Difficulté de programmation : moyenne. 
Catégorie de jeu : réflexe TL joueur 


Difficulté du j jeu: difficile. 


LE JEU : 

Au centre de l'écran. se trouve le viseur de votre appareil. et l'avion ennemi 
se déplace devant vous. d'une façon qui pourra vous sembler au début 
incohérente. 

Vous pouvez vous déplacer dans toutes les directions. grâce aux flèches de 
mouvement. et vous allez essayer d'amener Fappareilennemi au centre de 
VOLre VISCUT. 

Vous tirez sur lui en frappant COPY. et vous voyez vos projectiles qui 
convergent sur lui, Mais continue à se déplacer, même pendant votre tir. 
etilnest pas du tout évident que vous réussirez à lavoir. 

La partie continuera à se dérouler jusqu'à ce que vous Favez touché af- 


fichage de GACGNE. 


LE PROGRAMLME : 

La ligne 70 dessine lappareilennemi dont le déplacement aléatoire sera 
réalisé par les lignes 90 et 100, 

Les lignes 120 à 130 vous permettent le pilotage de votre appareil. 

La ligne 170 dessine le viseur ca votre appareil. 

Le sous- progranime, gérant le ur. va de la ligne 200 à la ligne 250 et le 
test de fin de partie esteffectué en D act 240. 

La ligne 180 regarde si vous avez tré ou non. 

Le bruit de la mitrailleuse est provoqué par l'appel du sous-programme 
260. 270 pendant le temps du ür. grâce à l'ordre EVERY. 


POUR JOUER : 

Des que le programme à été lancé par l'ordre RUN. vous devez manœuvrer 
pour essayer de faire en sorte que l'appareil ennemi soit cadré dans votre 
viseur. 

Pour cela. vous disposez des flèches de déplacement {touche TL. —. 
<—) et vous pouvez tirer à tout moment en pressant la touche COPY. 
L'appareil ennemi peut continuer à se déplacer de manière aléatoire. même 
lorsque vous avez tré. 

La partie se terminera avec l'affichage de GAGNE, si vous touchez l'avion 
ennemi. 

On peut aussi arrêter à tout moment en frappant ESC deux fois. 


EXTENSIONS POSSIBLES : 

Il sera assez facile de faire un affichage au graphisme plus soigné. utilisant 
la couleur. On pourrait envisager de stabiliser la position de avion ennemi 
pendant le tir. 

On peut aussi introduire plusieurs avions. compter les points ou le temps. 
tenir compte de sa propre réserve de carburant. ete. 


10 KEM COMBAT AERIEN 

20 RANDOMIZE(TIME) 

30 EVERY 4,1 GOSUR 260:DI 

40 CLS 

50 Az5:H=15: AVSECHRS (242) +CHKS (198) +CHRS 
(247) 

60 N=21i 

70 LOCATE H,A:CALL &HDIS:FRINT AVS 

80 U=A:V=E 

90 A=AT+EXINT (RNDX2) 1 

100 B=B+2XINT (RNDX2) -1 

110 AS=INEEYS 

120 E=B-2X (AS=CHRS (LFT) ) +EX CASECHRS (SF 2) 
) 

130 A=A-2X (ASECHRS (REF 1) ) +2X (ASE=CHRS (FO) 
) 

140 IF H£i OK B*58 THEN H=AES (H-37) 

150 IF ASl OK Aï24 THEN A=ABS (A-25) 

160 LOCATE V,U:CALL &ERDI9:FRINT " : 
170 LOCATE 18,9:PFEN Z:PRINT CHRS#& (150); CH 
R$ (158) : CHR# (156) :LOCATE 18, 10:PRINT CHR 
(151) ;CHRS (144) ; CHRS (157) :LOCATE 18,11: 
FRINT CHK$ (147): CHRS$ (155) : CHR$ (157) : FEN 
1 

180 IF AS=CHRS(SEO) OR N£21 THEN GOSUR ? 
(ere) 

190 GOTO 70 

200 EI:FEN S:LOCATE 29-N,N:FRINT CHR$& (20 
4) :LOCATE N+O,Ns: FRINT CHR$ (205) :FEN 1 
210 LOCATE 29-N,N:FRINT " ":LOCATE N+9,N 
SPRINT " " 

2e NEN-1 

230 IF Nr9 THEN RETURN 

240 IF ((ARS(I1O-A))Ex1) AND ((20-H):=4 À 
ND H£=20) THEN LOCATE R,A:FEN GS: PRINT AV 
$:FAFER Z:FEN 3:LOCATE 17,23: FRINT "GAGN 
E'!'";FAPFER O0:END 

230 N=?21:DI:RETURN 

260 SOUND 1,271,1,5 

270 RETURN 
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Affichage publicitaire 


REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : affichage publicitaire. 
Difficulté du jeu : aucune. 


LE JEU : 

Un texte quelconque devra être introduiten début de programme. Ipour- 
ra être relativement long {mais inférieur à 254 caractères) : on choisira 
ensuite le sens et la vitesse de défilement. à la suite de quoi le texte va 
apparaître (une seule ligne à la fois) et commencera à défiler. à la vitesse 
choisie. et dans le sens choist. 


LE PROGRAMME : 

Le texte sera introduit lettre par lettre aux lignes 70 à 100. 

L'affichage sera en grand format. grâce à la ligne 160. 

Le défilement vers la gauche est préparé à la ligne 190. et le défilement 
vers la droite à la ligne 200. 

Le texte sera affiché en ligne 180. et la durée de l'affichage (vitesse de 
défilement) est choisie par la boucle 210-240. 

La ligne 230 permettra de changer. si besoin est. les conditions du défile- 
ment. 

Un ordre EVERY. suspendu pendant la saisie des données. permet de 
changer régulièrement la couleur des impressions (sous-programme 260- 
270). 


POUR JOUER : 

On lancera le programme par RUX. et à l'affichage de la question EN- 
TREZ VOTRE TENTE. on introduira le texte à faire défiler. suivi de 
ENTER. 

On obtient ensuite l'affichage DÉFILEMENT DROITE (D) OU GAUCHE 
(G) auquel on ré “pondra en tapant. soit D, soit G. 

Puis à la question VITESSE. on répondra en introduisant un grand nom- 
bre pour une vitesse rapide. etun petit pour une vitesse lente (par exemple. 
de 0 à 40 ou plus). 

Le texte commencera à défiler dès que l'on aura frappé ENTER. 

Si l'on désire changer les conditions du défilement, il suffit d'appuver sur 
la touche O pour retrouver les questions SENS et VITESSE. On tapera 
ESC deux fois pour interrompre le programme. 


EXTENSIONS POSSIBLES : 
On pourra introduire de la couleur, réaliser un affichage ondulant. faire 
remonter les lignes sur l'écran. etc. 


10 KREM AFFICHAGE FUBLICITAIRE 

20 EVERY 250 GOSUEH 260:DI 

30 CLS 

40 EBhn" 

50 FRINT "ENTREZ VOTRE TEXTE :" 

60 FRINT 

70 ASSINEEVS:IF A$z="" THEN 70 

60 IF AH=CHRS (13) THEN B$=B#+" "is GOTO 11 
c) 

GO EHbeES+AS 

100 FEN ZS:FRINT A$::GO0OTO 70 

110 FRINT:FRINT:FEN 1:FRINT "DEFILEMENT 
DROITE (D) OÙ À GAUCHE (G) "3:2FEN 2: INFU 
T'", SH: FEN 1 

120 FKRINT 

130 FRINT "VITESSE (DE © À 50) 2'"33FEN 2 
sINPUT MM,Us:FEN 1 

140 VxSl-V 

150 EI 

160 MODE © 

170 TeLEN(ES#) 

180 LOCATE 1,12: PRINT " "4+MIDS (E$, 1,18) + 
190 IF LEFT#(S$,1)="G" THEN R#=RIGHTS (BS$ 
s TL) +LEFTS (RS, 1) 

200 IF LEFTS(S6,1)="D" THEN BS=RIGHTS (HS 
sL)+LEFTS (CRE, T-1) 

210 FOR Jzo TO 10XV 

220 CH=INKÉEYS 

230 IF Cé$="O0" THEN MODE 1:DI:GOTQ 110 
240 NEXT J 

250 GOTO 180 

260 C=(C+1) MOD 2S:INKH 1,1+C 

270 RETURN 
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Le jeu du missile 





REFERENCES : 
Difficulté de programmation : moyenne. 
Catégorie de jeu : contre AMSTR: \D. 


Difficulté du jeu : movenne. 


LE JEU 

AMSTRAD est en alerte : vous êtes aux commandes d'un avion chargé 
d'une mission d’'e spionnage sur son territoire : votre but est de survoler 
une base ennemie (représentée par un carac tère agrandi), et de revenir 
sain et sauf sur votre base : mais. dès qu'AMSTR. AD vous aura re pére. 1l 
Va envoyer à votre poursuite. un missile très perfectionné qui n'aura de 
cesse de vous détruire. 

Votre avion peut se déplacer dans toutes les directions. grâce aux touches 
de Là 9: réussirez-vous à remplir votre mission ? 


LE PROGRAMME : 

a ligne 50 dessine la base ennemie à survoler {sous forme d'un agrandi. 
a ligne 60 dessine votre base de départ. 

es lignes 80 et 90 choisissent l'instant de départ du missile. 

a ligne 100 dessine votre avion. 


Les lignes 120 et 130 définissent son mouvement nent 8 directions, et 
utilisant les sous- programmes en lignes 220,230. 250 et 260. 

La ligne 140 assure le départ du missile qui est dessiné par la ligne 150 et 
dont le déplacement est géré par les Tignes 160 et 170. 

Les lignes 180 et 200 contrôlent la fin de partie. 


POUR JOUER : 

Lancer le programme par RUN. 

Le terrain de jeu s ou he et vous pouvez dé plac er votre appareilen utuli- 
sant les touches de Là 9 avec fa convention suivante : 


À 
N 8 57 
D 
++ = 6+ 
1 3 
“ : N 


Vous devez lui faire contourner le territoire ennemi {st le nussile touche ce 
territoire, la partie s'arrête. 

Si le missile vous détruit. vous obtenez un message TOUCHE. et la partie 
s'arrête. 

Taper ESC deux fois pour arrêter la partie. 
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EXTENSIONS POSSIBLES : 

Il sera sans doute nécessaire d'améliorer les divers contrôles du program- 
me (l'avion a-t-1l survolé la base ennemie. est-il revenu à sa propre base... 
On peut aussi prévoir divers niveaux de jeu en faisant. par exemple. varier 
la vitesse du missile. prévoir l'utilisation de leurres par l'avion. Fexplosion 
du missile au bout d'un certain temps. ete. 


19 REM LE JEU DU MISSILE 

20 KANDOMIZE (TIME) 

FO EVERY 10 GOSUR 280:0DIT 

40 CLS:Mz0 

50 LOCATE 18,6:FEN SPRINT CHRS$ (141); CHR 

$ (142) s CHARS (10) 3 STRINGSE CE, 8) s CHR (129) 3 C 

HKS (1:39) 

60 FEN Z 2LOCATE 1,21: FRINT STRINGS(4,12 

7T):LOCATE 1,22: PRINT STRINGS# (4,127): FEN 

1 

70 Var Vaelér Xeæir Yx20 

80 SÆ=INT (RNDXV+:) 

9Q Ses 

100 LOCATE X,Y2FRINT CHKS$ (279) x 

110 ASSINFEYS#:IF A$="" THEN 110 

120 AVAL (AS): FESGN C6, SA) +EX (A=4) 

130 ON (CA AND A“5)+((10-A) AND 4:5) GOSU 

EH 220, 240,290, 260 

140 IF S£:O THEN 90 ELSE EI 

150 LOCATE U, Vi FEN ZSsPFRINT CHKS$ (292) 53PE 

N 1 

160 UæeU-SGN CU: X) 

170 VæV-SGN(V-Y) 

180 IF (UzX AND UxY) THEN LOCATE 1,2%:FR 

INT "TOUCHE, USINE O2, 0: SOUND 1,319:59S0 

UND 1,379:SOUND 1,478:FOR Ix1 TO SOO:NEX 

T Is INK ©, 15 END 

190 IF X:=220 AND Y£xs THEN Mal 

200 IF M=l AND X£=4 AND Y=20 THEN LOCATE 
2 PRINT "MISSION ACCOMFLIE":SOUND 1, 

478: SOUND 1,3579:SOUND 1,719:END 

210 GOTO 100 

220 Xex-F 

230 YeY+F 

240 RETURN 

250 GOSUR 270 

260 X=X+F 

270 RETURN 

280 SOUND 1,1000,2,2,0,0,1 

290 RETURN 
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Sous-marin 





REFERENCES : 

Difficulté de programmation : moyenne. 
Catégorie de jeu : réflexe 1 seul joueur). 
Difficulté du jeu : facile. 


LE JEU 

Vous manœuvrez en surface un chasseur de sous-marins. et des sous- 
marins passent très régulièrement en dessous de votre unité. à différentes 
profondeurs. 

Vous pouvez. à tout moment. larguer des grenades sous-marines et vous 
pouvez même envisager de touc her r plusieurs fois le même sous-marin. 
Votre score sera affiché en permanence. sur le centre de l'écran (rapport 
nombre de coups au but sur nombre de sous-marins apparus). 


LE PROGRAMME 

La ligne 70 permet à votre AMSTRAD de choisir la profondeur du sous- 
marin. 

La ligne 90 dessine votre bâtiment. 

La ligne 100 dessine la surface de l'eau. 

La ligne 120 dessine le sous-marin. 

Le ur est effectué par un programme spécifique placé aux lignes 200 à 
240. 

Le déplacement très rapide! de votre navire est réalisé par les lignes 170 
et 180 

Le test. permettant de savoir si lon a touché où non. est effectué en ligne 


140. 


POUR JOUER : 

Taper RUN pour commencer la partie. 

Le bâtiment sera déplacé grâce aux flèches droite et gauche. 

La touche O0 autorise le ur. 

Le navire. se déplaçant trois fois plus vite que les sous-marins. 1l sera 
possible de toucher plusieurs fois le même bâtiment. 

Pour terminer la partie. il conviendra de faire ESC deux fois ou d'attendre 
99 sous-marins. 


EXTENSIONS POSSIBLES : 

I sera assez élémentaire d'améliorer la qualité graphique du jeu. d'utiliser 
la couleur et les sons. de faire apparaître plusieurs sous-marins se dépla- 
çant à des vitesses différentes. éventuellement même. de permettre aux 
sous-marins de tirer. 





10 KREM SOUS--MAKIN 

20 RANDOMIZE(TIME):EVERY 100 GOSUR 250 
FO INE OO INE L'ésINE 2,18:INE 2 

40 FzO:C=16:S%5 

50 CLS 

60 LOCATE 1,S: PRINT STRINGS(S," ") 

70 Tei7s: Se INT (RNDXB+5) : FaF40, O1 

80 Xx2 


90 FEN 2ZHLOCATE C,S:FRINT " Ms CHRKS C2LS 
) 3 CHRS# (142) 3; CHRS (141): CHR (212) 5" L 


100 LOCATE 1,4:FEN SPRINT STRINGS (40, CH 
KR (196) ) 

110 FAFER 1:FEN 2Z2LOCATE 15,19:FRINT UST 
NG "SCORE HHA, Hs Fi FAFER 0 

120 + 21 LOCATE T,S:PRINT CHKS (154) 3 CHR 
BC2S1) sCHRS (154) 3" " 

L'30 de X=2 THEN Y=C+2 

140 IF Gex AND (T+leY OK T+2eY) THEN FF 
+LILOCATE TS: FRINT "XXX": SOUND 1,456, 20 


5 En On On 

150 TaT- LsIF 1LOO0X (FINT(F)) 99 THEN LOC 
sé L,21:PRINT "C'EST FINI sus. : 
Pa dcr de era-utet urate- re "se SOUND 1,478: SOUND 1,4% 
6: SOUND 1,:379:END 

160 IF Ti THEN LOCATE Y,X:FRINT " ": GOT 
O0 60 


170 AS=INEEYS 

180 CeC+HEX CCABECHRS CSF2) AND C1) (A$=CH 
RS CRFS) AND CES) ) 

190 IF A&g£+"O" AND Xx2 THEN 90 

200 LOCATE Y,X:IF X=2 THEN FEN 2 ELSE FE 
N 1 

210 FRINT "M Ms XæeX+ 1 

220 IF X2:S THEN 80 

230 LOCATE Y, X:FRINT CHARS (252) 

240 GOTO 90 

2930 SOUND 1,200,8:RETURN 
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Tic tac toe 





REFERENCES : 
Difficulté de programmation : moyenne. 
Catégorie de jeu : réflexion ‘deux joueurs}. 


Difficulté du jeu : facile. 


LE JEU : 

Un grand classique des jeux d'écoliers. proposé ici dans une version ne 
comportant pas le jeu mac hine : chaque joueur devra placer à son tour un 
O où un X ici un cœur ou un carreau) dans une case libre de la grille de 
jeu. et le premier qui réussit un alignement de 3 symboles identiques a 
gauné alignement peut être horizontal. vertical. où suivant Fune des 
deux diagonales’. 


LE PROGRAMME : 

Le terrain de jeu est dessiné à laide de la boucle F 50-70). 

La ligne 90 s'occupe d'afficher le symbole cœur ou carreau correspondant 
au Joueur qui a le trait. 

Un symbole clignotant (ligne 120) est affiché en haut et à gauche du 
terrain, même st la case est dél ‘ja oce upée : les lignes 150 et 160 permettent 
de déplacer le symbole sur le terrain de jeu. 

La ligne 170 vérifie si la case où l'on veut jouer est libre. et si Fon désire 
jouer. 

La hgne 180 enregistre le coup. et la ligne 190 réalise le changement de 
joueur. 


POUR JO ER : 

Le terrain de jeu sera affiché des la frappe de REX. 

Un symbole clignotant apparaît alors en haut et à gauche de l'écran : le 
joueur peut le dé ‘placer sur le terrain de jeu à laide de +5 + flèches (touches 
<—, — et 

Lorsqu'il arrive sur la case où il désire jouer. il suffit qu'il appuie sur la 
touche COPY. le coup sera refusé si la case n’est pas libre. 

Si la case est libre, le symbole qui correspond à ce joueur est inscrit. et on 
change de joueur. 

Lorsque la partie est finie. il convient de taper ESC deux fois pour sortir 
du programme. On pourra ensuite faire une autre partie avee RUN. 


EXTENSIONS POSSIBLES : 

On pourrait réaliser après chaque coup un contrôle pour vérifier si Fun 
des joueurs à gagné. On peut aussi réaliser un jeu machine mais il faudrait 
éviter qu'il soit par trop systématique (par exemple. la machine jouant 
toujours son premier coup sur la case centrale). 


10 KEM TIC TAC TOE 

20 MODE 0 

FO INE O1: INF L,1LGUINE 2,26: INF ©, 6: HO 
KRDER 16 

au CLG 1 

JO FOR Izl TO 9 

60 FEN OLOCATE 6, Itls PRINT STRINGS (%, 14 
3) 


70 NEXT I 


90 LOCATÉE 6, 18:FAFER &5FEN &+ks FRINT "JO 
LEUR "A+CHRS C2260-H) : FAFER © 

100 Tæls:gJæl 

110 CeTEST CCEX CTI) )XER+LE, CS CEXJ) XI 
é+t3) 

120 FEN P+ks LOCATE LHEXx CTI)  EXJSFARINT C 
HE (14) 

LEO LOCATE Lx CDI) EXJUIF Cir0 THEN FE 
N CS: FRINT CHARS C250-C0) ELSE FRINT " " 

140 bats AB INÉEVS 

1650 Tele CABeCHRS CLEFS) AND IE) + CASECHRS ( 
F3) AND I+1) 


#FO) AND J1) 

170 IF CErO OR AS2:CHRS (&EO) THEN 110 
180 LOCATE 1+45X CI+1) ,SKJ: PEN 24E: PRINT C 
HR CD2G HE) 

190 KA (K 1) 

200 GOTO 90 
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Smokey 


REFERENCES : 

Difficulté de programmation : movenne. 
Catégorie de Jeu : solitaire. 

Difficulté du jeu : moyenne. 


LE JEU : 

Une colonne de fumée jaune apparaît sur l'écran. Le joueur, représenté 
par une tête, devient visible sur la droite. I doit dans un premier temps se 
positionner sur la colonne de fumée, puis à partir de là, il va automati- 
quement avaler la fumée. à condition qu'il réussisse à se maintenir sur sa 
trace. 


LE PROGRAMME 

La ligne 60 fait apparaître la fumée au bas de l'écran : la ligne 70 permet 
de changer {vers la droite ou vers la gauche) la direction de la colonne. et 
la ligne 90 fait monter la colonne. 

Le joueur apparaît grâce à la ligne 110. et son déplacement est effectué 
par les lignes 160 à 180 

Les lignes 230 à 250 se chargent de l'affichage du résultat. 


POUR JOUER : 

On doit lancer l'exécution du programme par RUN. 

La fumée commence à s'élever, tandis que le joueur, apparu sous forme 
d'une tête rouge dans un coin de l'écran, va se déplacer sur elle à l'aide 
des flèches, Dès qu'il arrive sur la fumée. il va automatiquement commen- 
cer à lavaler. et devra essaver de suivre la colonne sans dévier (grâce e aux 
féches,, [gagne Silarrive en bas de l'écran avant que la fumée n'arrive 
en haut. 

L'affichage final indique alors BRAVO où PERDU. ainsi que le score ob- 
tenu. 


EXTENSIONS POSSIBLES : 

On pourra. tout en conservant l'idée de départ, imposer d'autres règles 
par exe mple avaler toute la fumée, qui pourra aussi repartir d'un autre 
endroit si l'on dévie de la colonne initiale. 

On pourra aussi améliorer les contrôles de fin de partie. et la qualité du 
graphisme. 


10 REM SMOFEY 

20 RANDOMIZE(TIME) 

30 S=0:X=24: Y=1+INT(RNDX40) 

40 U=i:V=17 

50 CLS 

60 LOCATE Y,X:PRINT CHR$ (226) 

70 Y=Y-(RND£0,.5 AND Y£24)+(RND#0,5 AND Y 
+1) 

80 T1 

90 X=X-T 

100 IF X=0 THEN 2350 

110 PEN S:LOCATE V,U:FRINT CHK$ (224) 35:2FE 
N 1 

120 IF Ux=24 THEN 250 

150 IF T£30 THEN FOR I=0 TO 300: AS$=INEENY 

$S:IF ASS" THEN 150 

140 IF T<:O THEN NEXT I 

150 LOCATE V,UsFRINT " " 

160 U=U- CAS=CHRE(RF1) AND Tæi AND X223) 
170 U=U-(T=0) 

180 VaV-(AS=CHRS (SF) AND V:40)+(A$=CHKS 
(GF2) AND V*1) 

190 C=TEST((V-1)*%x16+8, (25-U) x16+8) 

200 IF Cl THEN 60 

210 T=0:S=S+1 

220 GOTO 110 

230 LOCATE 12,12:1F U+e24 THEN FKRINT " 

ERAVO'"': SOUND 1,476: SOUND 1,379: SOUND 1,7 
19: GOTO0 250 

240 FOR 1=1 TO 6:SOUND 1,278,10,6X(I MOD 
BDINEXT I: PRINT "PERDU. ..,.." 

250 LOCATE 12,14:FRINT USING "SCORE : ## 
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Course de voitures 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de Jeu : jeu de réflexe (1 joueur). 
Difficulté du jeu : moyenne. 


LE JEU : 

Vous cireulez sur une route très sinueuse, ne comportant aucun obstacle. 
et vous devez essayer de la suivre le plus longtemps possible. La trace de 
votre parcours reste affichée en permanence, et votre score est affiché dès 
que vous avez un accident. 


LE PROGRAMME : 

L'impression de la route est assurée par la boucle [ (70-100). 

La ligne 110 fait avancer la route. et la ligne 120 imprime la voiture. 

La ligne 150 contrôle son mouvement. et la ligne 160 détermine si la route 
fait ou non des virages. 

La ligne 180 regarde si l'on a touché le bord de la route. 

La ligne 190 incrémente le score. 

La ligne 230 affiche le temps avant l'accident. 


POUR JOUER : 

Lancer l'exécution du programme par l'ordre RUN, le dessin de la route 
commence à évoluer. et votre véhicule, représenté par une voiture, appa- 
rait. 

Pour le déplacer vers la droite ou vers la gauche, vous devrez utiliser les 
touches = et (flèches de déplacement di curseur). Il vous faudra éviter 
le plus longtemps possible de toucher une bordure noire, ce qui provoque- 

ra l'arrêt du programme et l'affichage de la mention ACCIDENT, suivie 
de l'indication sur le score réalisé. 

On pourra arrêter le déroulement de la partie à tout moment en pressant 
2 fois sur la touche ESC. 


EXTENSIONS POSSIBLES : 

On peut envisager de jouer à plusieurs, chacun son tour, en enregistrant 
le meilleur score. 

On peut aussi envisager d'élargir la piste, et de faire courir plusieurs voi- 
tures. 

On pourra aussi s'inspirer des jeux d’arcades qui sont particulièrement 
nombreux sur ce thème. 


10 REM COURSE DE VOITURES 

20 RANDOMIZE(TIME) 

50 SYMEOL AFTER 240 

40 SYMBOL 240,93,127,85,20,95,127,93,8 
50 TeTIME:CLS:FEN 1 

80 X=24:Y=li:A=S:E=10:S%0 

70 FOK I1=0 TO 6 

80 LOCATE Y+I+1,X+1: FRINT CHKS$& (1473): 

90 IF I22 OK 134 THEN FEN 2Z:LOCATE Y+I+i 
ns XHI! FRINT CHRS#& (207) 3: FEN 1 

100 NEXT I 

110 PRINT: FRINT 

120 LOCATE R,A:FEN GS: PFAFER O-(CN%18) : FRIN 
T CHK# (240): FAFER O: PEN 2 

150 FOR Ixi TO LOS AS=INEEYS:IF A$z"" THE 
N NEXT I 

140 CH 


150 EE (ABSCHRS (SFTS) AND H<40) + (AS=CHRS 
(&F2) AND E*1) 

160 YaY-(C-2XARND AND VE25)-(CZXRND AND V5 
) 


170 IF NS19 THEN NeN+i: GOTO 200 

180 IF TEST((R-1)*16+8, (25-A-1) X16+8) «41 
THEN 220 

190 GSeS+l: FAFER 1 

200 LOCATE C,A:FRINT " " 

210 FAFER O:GOTO 70 

220 LOCATE 20,12:FAFER 2Z:FEN SG:FRINT UST 
NG "ACCIDENT, SCORE ###"59 

2350 LOCATE 20, 14:FRINT USING "TEMFS :#4#F# 
"ss ROUND C(TIME-T) /:500) 

240 SOUND 1,478:SOUND 1,426: SOUND 1,479 

250 FAFER O:FEN 1 
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Danger spatial 


REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : jeu de réflexe. pour un joueur. 
Difficulté du jeu : moyenne. 


LE JEU : 

Vous êtes aux commandes d'un engin spatial qui vient de pénétrer dans 
un nuage de météorites. Vous devez essayer de franchir le nuage sans 
heurter une seule météorite. Votre score sera affiché en fin de partie, lorsque 
vous entrez en collision avec une météorite. 


LE PROGRAMME : 

La position de chaque météorite est déterminée par les lignes 60 et 80 : 
elle est imprimée par les lignes 70 et 90. 

L'avance des météorites est réalisée par la ligne 100. 

Les lignes 100 et 110 vérifient si vous avez ou non heurté une météorite. 
La ligne 120 dessine votre vaisseau spatial, et la ligne 140 permet de le 
déplacer. 

Le compteur se trouve en ligne 150. 

La ligne 500 provoque un beep-beep pendant toute la durée du jeu. 


POUR JOUER : 

Le jeu est lancé par l'ordre RUN. 

Votre vaisseau apparaît vers le milieu de l'écran, et les météorites viennent 
à votre rencontre en partant du bas de l'écran. Pour vous déplacer, vous 
pouvez utiliser les touches de déplacement horizontal (+ et —). 

On peut arrêter la partie à tout moment en tapant ESC deux fois. Sinon. 
le jeu s'arrête lorsque vous heurtez une météorite, et le score est alors 
affiché. 

EXTENSIONS POSSIBLES : 

Il serait intéressant de rendre le jeu de plus en plus difficile en faisant 
apparaître de plus en plus de météorites au fur et à mesure du déroulement 
de la partie. 

On peut aussi essaver de détruire les météorites en les pulvérisant au fur 
et à mesure de leur apparition. 


10 REM DANGER SFATIAL 

29 KANDONMIZE (TIME) 

30 EVERY 10 GOSUE 500 

40 CLS 

0 Xe16: 2x0: VaxX 

60 HEL+INT CRNDKE58) 

70 IF RND2O,.7 THEN LOCATE H,2S:FEN 2:PKRI 
NT CHRS (231) 

80 Hzæl+ TNT CRNDX:36) 

9Q IF KNDEO,6 THEN LOCATE KE, ü:FEN 12 PRIT 
NT CHARS CHE): 

100 LOCATE 1,2S:PFRINT CHRS$ (10) : HE TEST CCX 
1) Xlé+S, CES 12) K16+8) :CETESTCXXL6+E, CES 
je LE) X16+6) 

110 IF &B MOD % #50 OR C MOD # +0 THEN 1 
90 

120 LOCATE Y LL PRINT STRINGS (2,32): 

130 LOCATE XSL: PEN Ses FRINT CHR& C245) +CH 
FU (245) à 

140 Az INEEYS 


160 XXe (ABMOHRS (SF) AND X257) + CAB&CHRSE 
(FR) AND X%1) 

170 ZæZ+il 

180 GOTO 60 

190 TEFO:WHILE TE200:SOUND 1,TE, 1: TESTE 
+1 : WNEND 

200 LOCATE 11,25: FAFER G:FEN LeFRINT LE 
SCORE EST DE"3Z: PAPER O:FEN 1:END 

500 SOUND 2,40, 24 RETURN 
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Diago 





REFERENCES : 
Difficulté de programmation : facile. 
Catégorie de jeu : réflexe {1 seul joueur). 


Difficulté du jeu : difficile. 


LE JEU : 

On lance le programme par RUX et on obtient un premier affichage qui 
vous renseigne sur la performance à réaliser (par exemple, 5 D points noirs 
ou 17 points noirs...). puis le temps est affiché et décompté, à partir de 10 
secondes. Le jeu commence lorsque lon arrive à 0 seconde. Des ronds 
apparaissent alors en bas et à gauche de l'écran. formant une ligne dia- 
gonale. et il vous faudra appuyer sur la touche 0 pour arrêter l’ ali hage 
des points des que vous e stimez que le nombre de points demandé au dé but 


est apparu à l'écran. 
On obtient alors un affichage BRAVO où PERDU selon le résultat obtenu. 


LE PROGRAMME : 

Le nombre de points noirs sera choisi au hasard. en ligne 50. 

Le temps est décompté par le sous-programme 240-260 appelé toutes les 
secondes (ligne 30). 

Les points sont imprimés et la ligne diagonale est fabriquée par la ligne 
120. 

La pression de la touche 0 est détectée en ligne 150, et la ligne 170 contrôle 
la fin de partie faueun réflexe). 

Les affichages de fin sont exécutés par les lignes 170, 200 et 210. 


POUR JOUER : 

On lancera l'exécution par RUN. 

On obtient alors l'affichage de la phrase LE BON REFLEXE EST A... qui 

indique le nombre de points gagnants. 

Le temps sera ensuite décompté sous la forme ATTENTION : IL RESTE 
. SECONDES qui indique le temps restant avant l'apparition de la dia- 

gonale. 

A l'affichage de 0. la diagonale apparaît et commence à se déplacer sur 

l'écran. 

Si l'on estime que le nombre de points réclamé a été atteint, on devra 

presser la touche 0. 

L'affichage indique alors BRAVO si l'on a gagné, ou PERDU dans le cas 

contraire : puis la phrase AUTRE ESSAI (O/N) est affichée, répondre O 


pour faire une autre partie. 


EXTENSIONS POSSIBLES : 

On pourra envisager une adaptation du jeu à deux joueurs ou plus, en 
laissant la diagonale se former complètement et en testant la coincidence 
lors de la pression de la touche affectée au joueur. 

On peut aussi réaliser un graphisme plus soigné et modifier le principe du 
déplacement des objets sur l'écran (déplacement horizontal, vertical ou 
apparition au hasard...). 


10 REM DIAGO 

20 RANDOMIZE(TIME) 

30 EVERY 50 GOSUR 240 

40 CLS 

HO XE INT C(KNDX15+5) 

60 S=10 

70 FRINT "LE EHON REFLEXE EST À ‘"33:FAFER 

Es: FRINT STRING#(X,202):FAFER 0 

80 WMHILE SO: WEND 

90 DI 

100 CLS 

110 Us 

120 LOCATE 1,26: FRINT TAR(U) CHK#& (202%) 

130 FOR Is=il TO 100:NEXT I 

140 UzU+1 

150 AS=INHEYS 

160 IF A$g="O0" THEN 190 

170 IF U:22 THEN FEN S:PFRINT "PERDU! '':WH 

ILE TE4200: SQUND 2,TE, 1: TE=TE+1: WEND: FEN 
1:GOTQ 210 

180 GOTO 120 

190 IF UéX+1 THEN U=2%:GO0OTO 170 

200 FEN Z:FRINT "ERRAVO!'"':SOUND 1,478: SOU 

ND 1,426: SOUND 1,379:FEN 1 

210 FRINT:FARINT "UN AUTRE ESSAI (O/N)" 

220 AS=INÉEYS:IF A$="" THEN 220 

20 IF UFFERS (4#)="0" THEN RUN ELSE END 

240 LOCATE S,12:FRINT USING "ATTENTION. 
IL RESTE ##4 SECONDES"3:5S 

250 8Sx=S-1:SOUND 1,200 

260 RETURN 
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Œufs 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : solitaire. 

Difficulté du jeu : moyenne. 


LE JEU : 

Un oiseau mystérieux se déplace en battant des ailes au hasard sur l'écran. 
Il pond des œufs (représentés par des O) que vous (un carré de couleur) 
devez essayer de récupérer. Attention, seuls les œufs de votre couleur 
rapportent des points. les autres vous en enlèvent. Votre score (nom- 
bre d'œufs récupérés) sera affiché en permanence, et la partie se déroule 
en un laps de temps défini. 


LE PROGRAMME : 
L'oiseau est dessiné en deux parties (pour le mouvement) aux lignes 70 et 
119 : son déplacement aléatoire est géré par le sous-programme 220-310 
en particulier les lignes 270 à 300). 
( ! a 
La ligne 130 permet de reboucler le programme sur la ligne 70. 
ë Ï 1 1e prof . © 
Le déplacement du joueur est régi par les lignes 150 et 160. et le test 
permettant de détecter la présence d'un œuf est effectué en ligne 170. 
La lione 190 permet l'affichage du score. 
D AS cage 
La fin de jeu est détectée en ligne 230. 


POUR JOUER : 

On lancera le programme par RUN. 

L'oiseau commence alors à se déplacer au hasard sur l'écran, et se met à 
pondre ses œufs. Lorsque le symbole qui représente le joueur (un carré de 
couleur) apparaît sur l'écran. celui-ci peut se déplacer en utilisant les 4 
touches de déplacement. I vous faut dès lors essayer de récupérer un 
maximum d'œufs avant la fin de la partie. 

On pourra arrêter de jouer à tout moment en tapant ESC deux fois. 


EXTENSIONS POSSIBLES : 

Sur le même principe. on pourra facilement imaginer d’autres thèmes de 
jeu. On pourra bien sûr améliorer la couleur. les sons, le graphisme. et 
éventuellement. définir un jeu à plusieurs joueurs, chacun essayant de 
récupérer un maximum d'œufs. 


10 REM OEUFS 
20 RANDOMIZE (TIME) 

30 INÉ 0,9 

40 SYMBOL AFTER 240:SYMBOL 240,24,24,126 
255,255, 56, 26,276 

50 CLS: F=200:Re18:G=10:T=0 

60 Xæ1+INT (RNDKE6) 2 Yæ1+ INT (RNDX21) 

70 LOCATE X,Y:FEN 2:PRINT CHRS (198) ; CHARS 
(240) ; CHRS (198) ; 

80 FOR I=l TO 20:08 INFE VS 

90 IF A$="" THEN NEXT I ELSE GOSUER 140 
100 GOSUB 210 

110 LOCATE X,Y:FEN C:FRINT CHRS (192) 3; CHR 
$ (240) 3 CHRS (192) : 

120 GOSUB 210 

130 GOTO 70 

140 LOCATE R,S:PRINT " " 

150 Ref CABECHRS (SFT) AND R£36) + (AS=CHFS 
(F2) AND R*1) 

160 SeS—(ABeCHRS (FL) AND S£22) + (A$=CHRS 
(FO) AND S*1) 

170 GeTEST ((R-1)k16+8, (25-S) X16+8) 

180 TeT- 2x (Ge) + (BR) 

190 LOCATE 15,2%:FAFER 1:FEN 33FRINT USI 
NG " SCORE ###":T:: PAPER O 

200 RETURN 

210 A=X: BY 

220 Pep-i 

230 IF FO THEN PRINT "C'EST FINI....":S 
OUND 1,478: SOUND 1,426:SOUND 1, 37%:END 
240 LOCATE R,S:FAFER 3:PEN O:FRINT CHR ( 
233) ::FAFER 0 

250 PEN 2-(RND£0.5):LOCATE A,B:PRINT " " 
+CHRS (2E1)4" M3 

260 X=ABS (X+INT (14+2X (RND£O, 5) )) 

270 Y=ABS CY+INT (142% (RND20,5) )) 

280 IF X:27 OR X<1 THEN X=1 

290 IF Y:22 OR Y£i THEN Y=1 

300 RETURN 
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Taquin de lettres 





REFERENCES : 
Difficulté de programmation : moyenne. 
Catégorie de jeu : réflexion. 


Difficulté du jeu : difficile. 


LE JEU : 

Qui d'entre nous n'a pas. un Jour ou l'autre. eu dans les mains un de ces 
petits puzzles où l'on essaie de déplacer d'une case à une autre des petits 
carrés de plastique colorés. jusqu'à l'obtention d'un résultat bien précis ? 
En son temps le 14-15 de SAM LOYD. a eu autant de suceès que notre 
célèbre RUBIKS. 

Le taquin qui vous est proposé ici utilise 35 lettres. disposées au hasard 
dans un carré de 6 cases sur 6 cases. et ces lettres peuvent. replacées dans 
leur ordre initial. vous permettre de reconstituer un proverbe très connu. 
Une case coloriée vous permet de déplacer les lettres. et un compteur 
affiche en permanence le nombre d'essais : arriverez-vous à retrouver le 
proverbe ? 


LE PROGRAMME : 

La grille de Jeu est dessinée pour les boucles imbriquées K°{70-100) et I 
(40-120). 

La phrase à reconstituer {qui pourra bien sûr être modifiée) est placée 
dans une variable R$ en ligne 130. 

Le mélange des lettres et l'impression sont faits par la boucle (140-220). 
La ligne 250 réalise l'affichage du carré coloré : celui-ci est déplacé par 
les lignes 290 et 300 en utilisant les + flèches. 

La line 320 réimprime la lettre concernée à l'emplacement du carré co- 
loré. 

La ligne 340 comptabilise le nombre d'essais qui est imprimé grâce à la 
ligne 240. 


POUR JOUER : 

On lance le prograime par RUN. 

La partie sera évidemment d'autant plus difficile que lon ne connaît pas 

le proverbe à reconstituer. On peut déplacer les lettres et les faire passer à 

l'emplacement du carré coloré. à l'aide des + touches de direction (=. <-. 
T ). 

Le nombre d'essais est affiché en permanence. en dessous du puzzle. 

On peut arrêter à tout moment en tapant ESC deux fois. 


EXTENSIONS POSSIBLES : 

Le même principe peut être appliqué à toute sorte de taquins (manipula- 
ton de nombres. de couleurs. de sons éventuellement). On peut aussi 
prévoir plusieurs phrases. avec un choix effectué par un générateur aléa- 
toire. etc. 


RER TAQUIN DE LETTRES 
RANDOMIZE CTI ME) 
MODE © 
FOR Il TO LS 
se MOD Gi LOCATE 4, I+5 
60 FRINT CHARS (149 CEXV) + CT) x (Tel) ) 





70 FOR Exl TO 6 

60 FRINT CHARS CLS4+LSEXNOT UV); 

PQ FAINT CHERS CLS CLOIXKNOIT V4 CL LD 4x CT 
LED HEX (Exé AND VI; 

LOU NEXT KE 
110 FAINT 
13 NEXT TI 
LC 
TITQUESOTI" 
140 FOR T1 
190 Xa: [NT CHND 
L6Q IF MIDS (RS, X, Loue THEN 150 
170 AbmAg+NMT DS CES, X, L) 



















190 XæT MOD Gi YEINT (LT /6) 
OU AB CX, Y)mMIDS CAS, EL, 1) 
210 LOCATE BXX4+S, 2XY+Ss PEN s PRINT AG CX, 






220 NEXT I 
mec : VeOs GeO: Ce 
LL PEN 6: PRINT USING "NOMER 
HU SG 
250 LOCATE PXX45, PXVHS: PEN Gr PRINT CHARS ( 
14%) 
260 THEINEEYS# 

Mu THEN LOCATE XXE, BXV4S: PR 
):G0T0 250 











3) AND X:0) 
D VaVe (TBE CRE L) AND Ye) + CTÉECTIRS ( 
FO) AND V*#0) 






20 LOCATE BXI+5,2XJ+S: FRINT ACT, J) 
: JeY THEN FRINT CHERS C7) 550 





1,478: SOUND 1,479: 2: SOQUND 
1, A 
330 GOTO 240 
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Cibles 





REFERENCES : 
Difficulté de programmation : difficile. 
Catégorie de Jeu : hasard. 


Difficulté du jeu : facile. 


LE JEU 

I consiste simplement à urer sur des cibles, en essayant de marquer le 
maximum de points : le nombre de cibles (de 1 à 6) sera choisi en début 
de partie. et le score réalisé sera affiché en permanence. Si l'on touche le 
bord d'une cible. la partie S'arrête. On marquera d'autant plus de points 
que le nombre sur lequel on tombe sera plus grand. 


LE PROGRAMME : 

Le nombre de cibles est entré en ligne 50. La boucle 1 (80-100) effectue 
l'impression des cibles. 

La ligne 120 affichera le score en permanence. 

La balle est affichée par la ligne 130. 

La boucle 150-200 réalise impression des chiffres contenus dans les 
cibles. et permet le déplace ment de la boule (ligne 190). 

La ligne 220 regarde si lon a uré. et la ligne 230 reg arde si la boule est 
encore sur la ligne de départ. 

La ligne 240 fait progresser la boule vers la droite, et la ligne 250 vérifie 
Si l'on à ou non atteint les cibles : puis les lignes 260 et 270 regardent ce 
que l'on a touche. 

La ligne 280 incrémente le score. 

Les lignes 200 et 300 S'oceupent de la fin de partie. 


POUR JOUER : 

Lancer le programme par RUN. et taper le nombre de cibles désiré suivi 
de ENTER. Les cibles s'affichent. et la partie commence. Votre balle. 
représentée par un O. est affichée en bas à gauche : vous pouvez la dépla- 
cer avec les flèches haut et bas (touches ù et |). et vous pouvez tirer à 
tout moment en tapant COPY. 

Le score sera modifié en fonction de votre résultat, et une nouvelle balle 
apparait. Ile st possible d'arrêter à tout moment en tapant ESC deux fois. 
sinon le jeu s'arrête au bout d'un certain nombre de tirs. 


EXTENSIONS POSSIBLES : 

On pourra sans difficulté augmenter le nombre de cibles, modifier la règle 

d'apparition des nombres dans les cibles pour la rendre moins hasardeuse, 
s'arranger pour que la balle elle-même soit représentée par un chiffre qui 

devrait coincider à l'arrivée avec celui de la cible. 


10 KREM CIBLES 

20 RANDOMIZE (TIME) 

20 INF 0,9 

40 FRINT: INPUT "NOMBRE DE CIHLES MSN 

930 IF N£i OR Nré THEN 40 

60 FelO:Je=30:SrQ: Ex 1 

70 CLS 

80 FOR I=1 TON 

90 LOCATE J+l1,SXI:FRINT CHK$& (140) ; CHRS (1 
32) :LOCATE J+1,EXI+IS:FRINT "OMS CHRS (135) 
!LOCATE Jæ+L IX I+2s FRINT CHRS (121) : CHKS (1 
29) 

100 NEXT I 

110 EeO:A%IBXx16 

120 LOCATE 8,21: FAFER 1:FEN S:FRINT USTN 
G " SCORE ### — BALLE ##4# "3 GS: E:FAFER © 
LFO TAG: MOVE KE, A: FRINT CHRS (231) ; : TAGOF 
F 

140 DA 

150 FOK Is1 TON 

160 U= TNT CRNDXF') 

170 LOCATE J+1,2XI+1: PAPER 2Z2FRINT CHKS& ( 
U+463) 3 V CT) æU 

180 ABxINEEVS 

190 AA AX CAGECHRS CLP 1) AND Aïé6Xx16)-4X CA 
Be CHIFCS (RFO) AND A4400) 

200 NEXT I 

10 TAGEMOVE KE, DE FRINT "M "Sa TAGOFF 

220 IF ABECHRS CREO) AND ExOQO THEN EzE+1:6 
OTQ 240 
230 IF kr 








270 IF Cise THEN LOCATE 12,12: FRINT "FER 
DU'":WHILE TE£Z200: SOUND 1,7TE,1:TERTE+1:W 
END: FAFER O:END 

280 SxSG+V (KROUND ((25- C(CA-8)/16))/%)) 

290 FaF-1s PRINT CHKS (7); 

300 IF FeO THEN SOUND 1,478: SOUND 1,426: 
SOUND 1,479: END 

410 GOTO 110 
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Gouttes 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : dessin. 

Difficulté du Jeu : aucune. 


LE JEU : 

Cest un véritable programme de de ‘ssin animé que lon peut considérer. 

en fait. comme un interlude : un récipient est dessiné sur Fécran, vu en 
coupe. etilecontient déjà des obstacles. Une goutte d'eau, symbolisée par 
un rond bleu. apparait au-dessus du récipient et tombe en re mplissant le 
récipient au fur et à mesure. Sa trajectoire, lorsqu'elle rencontre un obs- 
tacle, est entièrement déterminée par le hasard : elle part à droite ou à 
gauche. jusqu'à ce qu'iln y ait plus aucune possibilité, Alors. une autre 
goutte tombe, et ainsi de suite, jusqu'au débordement final. 


LE PROGRAMME : 

Les deux boucles embottées 1160-1302 et 770-120) dessinent le récipient 
et les obstacles. 

La ligne 170 dessine la goutte et la ligne 210 envoie dans un sous-pro- 
gramme 370-390 qui permet de déterminer S'il v a ou non rencontre 
avee un obstacle, 

Sic'est non. on va en 200, et la goutte continue de tomber. 

Siéest out, la goutte part à droite où à gauche {ligne 230) selon la valeur 
définie pour Ken ligne 150. 

On regarde de nouveau S'il RAR obstacle. ou si la goutte peut conti- 
nuer à tomber lignes 240,250 ou 260. 

Selon Le résultat du test. on utilisera 270. 290. 310 ou 340. 


POUR JOUER : 

Le RUN déclenche le dessin du récipient et des obstacles. la goutte appa- 
rait. se met à tomber et finit par se trouver une place. Une autre goutte 
apparait et lon recommence. 

Le programme S'arrête de lui-même lorsque le récipient déborde : on peut 
l'arrêter à tout moment en tapant ESC deux fois. 


EXTENSIONS POSSIBLES : 

On peut. bien entendu. ajouter la couleur et le son et aussi envisager un 
jeu dans lequelun peut personnage devrait échapper aux gouttes où à la 
novade. 


10 KEM GOUTTES 

20 RANDOMIZE (TIME) 

20 SYMEQOL AFTER 240:SYMEOL 240,268, 62,127 
n127n127162,268 

40 EVERY 40 GOSUER 1000%DTI 

30 CLS 

60 FOR Iæ12 TO 20 

70 FOR Jx12 TO 27 

80 LOCATE 11,I:FEN LL: FRINT CHKS (145) 2 LOC 
ATE 26, Is FRINT CHARS (14%) 

90 LOCATE J, 202: FRINT CHKS$ C1L4) 

100 IF Isis AND Ié:20 THEN LOCATE J,I:F 
EN ui PRINT CHERS CLASS) 3 FEN T 

110 IF I£%:20 AND KND£O0,7 THEN LOCATE INT 
CRNDX1S+12) , Is FRINT !" " 

120 NEXT J 

120 NEXT TI 

140 YaæINT (RNDX7416) : X:6 

190 Kai x (RNDEO, E) 1 

LÉO Leo ET 

170 LOCATE YA XSFEN Zu FAINT  CHS (240) 

180 FOR Jx0O TO LOU: NEXT J 

190 LOCATE Y,X2FRINT "M" 

200 UeX+1s VeY 

F GOSUR #70 

IF JO THEN 290 














GOSUE 570 

LEO Jo THEN TO 

IF IQ THEN 40 

LOCATE Y, X2FRINT CHARS (240) 
GOTQ 140 

XXL 

GOTOQ 150 


GQTQ 170 

[RER LA 

290 Ii 

360 GOTOQ 250 

270 JeTESTC(V-L)XLé6+8, (250) X1é6+68) 

380 IF Uef4 THEN LOCATE 14, 6:FRINT MC'ES 

TOFINT,, , "e SOUND 1,478: SOUND 1,379: SOUND 
1, 319:END 

390 RETURN 

1000 SOUND 129,0:SQOUND 1,20, 5:RETURN 
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Obstacles 


REFERENCES : 

Difficulté de programmation : assez difficile. 
Catégorie de jeu : jeu de réflexe {pour un joueur) 
Difficulté du jeu : moyenne. 


LE JEU 

Des obstacles se déplacent sur l'écran pour venir à la rencontre d'une petite 
voiture qui dispose de la possibilité de se déplacer vers la gauche où vers 
la droite pour les éviter et qui devra tenir le plus longtemps possible. 

La distance parcourue sera affichée en permanence. et le jeu se termine 
lorsque la voiture rencontre, soit le bord du terrain. soit un obstacle. 


LE PROGRAMME : 

La ligne 80 fait avancer les obstacles vers la voiture du joueur qui est 
imprimée grâce à la ligne 70. 

Les lignes 80. 90. 100 fabriquent la route {les lignes 90 et 100 bien qu'i- 
de ‘atiques sont toutes deux indispensables. car la valeur de RND ne sera. 
en principe. pas la même sur ces deux lignes). 

La ligne 120 affiche le score dans une fenêtre #1 protégée contre le 
défilement de la route. 

La ligne 140 permettra de déplacer le véhicule. 

Les lignes 150 et 100 permettent de contrôler Silva ou non un obstacle 
et de continuer le programmes ail va lieu. 

Le score est incrémenté en ligne 100. 

En ligne 170, Puulisation d'une encre transparente permet de montrer la 
voiture écrasant Fobstacle. 


POUR JOUER : 

On lance le programme en tapant REX. 

La route et les obstacles apparaissent en bas de l'écran et montent vers la 
voiture. La voiture peut se déplacer à l'aide des flèches de déplacement 
horizontal {touches = et —. 

La rencontre avec un obstacle ou la bordure interrompt le déroulement du 
programme et provoque l'affichage du score. 

On peut. cependant. sortir du programme à tout moment en uulisant la 
touche ESC deux fois. 


EXTENSIONS POSSIBLES : 

Il Sera assez facile d'améliorer le dessin de la voiture. de la route. des 
obstacles. On pourra améliorer le son et la couleur. admettre un certain 
nombre d'accidents. enregistrer le meilleur score (pour plusieurs joueurs. 
éventuellement dessiner plusieurs voitures. ete. 


10 KREM OBSTACLES 
20 RANDOMIZE (TIME) 
30 EVERY 5 GOSUE 1000 


40 SYMEOL AFTER 240:SVMBROL 240,95, 127,85 


,70,9%,127,9%,8:SYMEOL 741,8,70,8,62,42, 
8,78,54 

50 CLS:WINDOW #0,1,11,1,25 

60 Ge0: Yes 

70 LOCATE Y,1:FEN Z:FPRINT CHRS (240) 

80 LOCATE 1,25:FEN L:PRINT CHR$ (143): GTR 
INGS (9, 22) : CHARS (14%) 

90 IF RND£O,7 THEN LOCATE INT (RNDXG+2),7 
Gs PEN 2ePRINT CHRS (241): 

100 IF RNDS0.8 THEN LOCATE INT CRADXB+2) ; 


120 PEN [Hi 1+(s MOD 2) :LOCATE #1,15,15%P 
RINT #1, USING "SCORE 2: ##h#":S 
150 ASeINEEYS 


140 VaVe CABeCHRS CRE) AND YELO) + CABECHRS 
(UF2) AND Y*1) 
150 CeTEST(C(Y-1)k16+8, (25-1) X16+8) 


160 IF CO THEN S=S+1: GOTO 70 

170 LOCATE Y, Is FRINT CHARS (22) s CHRS& (1) 3 CH 
FH (240) 

180 WMILE TE£200:SOUND 1,TE, Li: TERTE4+L WE 
ND 

190 END 

1000 SOUND 1,400,2, , 428 RETURN 


217 


218 


Captures dans l’espace 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : réflexe (1 seul joueur). 
Difficulté du jeu : movenne. 


LE JEU : 

Votre vaisseau spatial navigue dans un dangereux champ de météorites et 
votre mission est de vous emparer de la plus g grande quantité possible de 
minerai d'urane. un métal indispensable que l’on ne peut trouver que dans 
ces lieux particulièrement dangereux. 

Vous devez arriver à manœuvrer pour recueillir l’urane, sans vous faire 
heurter par une météorite. 


LE PROGRAMME : 

La ligne 70 permet de faire apparaître le minerai d’urane. 

La ligne 90 fera apparaître les météorites et en assure le déplacement sur 
l'écran. 

Les lignes110 à 130 contrôlent le déroulement du jeu (a-t-on heurté une 
météorite ou a-t-on capturé un bloc d’urane ?). 

La rencontre d'une météorite provoque la fin de partie. 

Votre vaisseau spatial est imprimé par la ligne 150 et son déplacement est 
contrôlé par la ligne 160. 


POUR JOUER : 

On lance le programme par RUN et les météorites commencent à monter 
sur l'écran. ainsi que les blocs d'urane. 

Les touches de déplacement horizontal (+ et <—) seront utilisées pour 
déplacer votre vaisseau et récupérer l’urane. mais le moindre heurt avec 
une météorite provoquera la fin de la partie et l'affichage de la quantité 
d'urane capturée. 

On pourra aussi arrêter à tout moment en tapant ESC deux fois. 


EXTENSIONS POSSIBLES : 

On peut rendre le jeu de plus en plus difficile en augmentant progressi- 
vement le nombre de météorites, ou encore, en minutant la durée de la 
partie. 

On peut aussi prévoir un affichage permanent du score, introduire un 
deuxième vaisseau spatial manœuvré par une puissance étrangère et qui 
cherche aussi à s'emparer de l’urane.. 


10 REM CAFTURES DANS L'ESPACE 

20 RANDOMIZE (TIME) 

30 INE 1,0 

40 CLS: SVYMEOL AFTER 240:SYMBOL 240,0,8,8 
.54,127,78,8 

SO Xæ15: 20 

60 Gx INT (L+RNDKE9) 

70 LOCATE S,2S:FEN SiFRINT "#"s 

90 GxINT (L+RNDX39) 

90 IF RND:0,.7 THEN LOCATE S,2S:PEN %:PRI 
NT MX: PRINT CHR& (10) 

100 FOR Iæl TO 1O:NEXT I 

110 CaTEST((X-1)k16+8, (25-17) X16+8) 

120 IF Ce THEN FAFER 32FEN 1:LOCATE 11, 
P4:FRINT USING "SCORE OBTENU 2: ###f"5 2: WH 
ILE TE£POOLINE O,TE MOD 26: SOUND 1,TE, 12 
TE=TE+1 : WNEND: PAPER O:END 

1320 IF Ce? THEN Z=Z+1:SOUND 1,478: SOUND 
1,426: SOUND 1,279 

140 LOCATE X-1,11: PRINT STRINGS (3,32) 
150 PEN 1:LOCATE X-1,122PRINT " "+CHRS (2 
40)+" 

160 AB=INEEYS 

170 XeXe (AbECHRS (SF) AND X£50) + (ABECHRS 
(F2) AND X:2) 

180 GOTO 460 
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Anomalie 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : solitaire. 

Difficulté du jeu : moyenne. 


LE JEU : 

I re pose esse ntiellement sur une bonne Capacité d'observation. Deux grilles 
de 25 cases chacune sont dessinées sur l'écran. Des symboles identiques 
sont affichés en des endroits différents des deux grilles. mais Fun des 
svmboles à été modifié sur la grille de droite. Le jeu consiste à trouver 
lequel. en entrant ses coordonnées dans l'ordre ligne-colonne. 


LE PROGRAMME : 

La boucle (50-80 imprime les chiffres de repérage des grilles et des 
points. avee une encre masquée. 

La boucle principale 1 2100-160! imprime les symboles des deux grilles. 
dans un ordre différent. 

La ligne 110 choisit le caractère à imprimer. 

Le sous-programme 1000-1040! S'occupe de faire l'impression à un em- 
placement libre (on l'appelle deux fois pour les deux grilles). Lors du tirage 
de la lettre modifiée, la ligne 1030 S'assure que celle-ci n'est pas identique 
à celle qu'elle remplace. La matrice B contient la valeur de chaque lettre 
de la grille de droite. 

Les lignes 170 et 180 changent. de façon aléatoire. Fun des caractères. 
Les coordonnées du point essayé sont entrées aux lignes 190 et 200, et le 
contrôle est effectué par la ligne 210. 

La ligne 220 S'occupe de l'affichage du résultat. 


POUR JOUER : 

Après avoir lancé le programme par l'instruction RUN. on obtient laffi- 
chage des deux grilles. On devra alors chercher, par comparaison. quel est 
le caractère qui a été modifié (sur la grille de droite). 

On entre alors son numéro de ligne. suivi de ENTER. et son numéro de 
colonne, suivi de ENTER. 

Le programme répondra alors BRAVO ou PERDU. 


EXTENSIONS POSSIBLES : 

Î sera possible d'utiliser des symboles graphiques de diverses couleurs. ce 
qui pourra simplifier la recherche. 

On peut aussi envisager d'utiliser des dessins plus sophistiqués. améliorer 
le contrôle du résultat. admettre la bonne réponse sur la grille de droite ou 
celle de gauche. introduire un minutage. etc. 


10 REM ANOMALIE 

20 INF 1,12 INE 2,12 INF 5, 1: RANDOMIZE(TIM 
E) 

30 FOR Isil TO S:FOS$=FOS+CHRS (144) EU OUINE 
XT I 

40 T=S:DIM HS, 5):CLS 

30 FOR Izi TO S 

60 LOCATE 2XI+1,1:FRINT IsLOCATE 1,2XI1+1 
:FRINT I 

70 LOCATE ZXI+I9,I1:FRINT IsLOCATE 19,2XI 
+l: PRINT I 

75 LOCATE 4,2XI+L: PRINT FOH:LOCATE 22,2% 
ItisFRINT FO0$ 

80 NEXT I 

100 FOR Izi TO 22 

110 D&INT (26XRND-+ 1) 

120 Les Gex 

130 GOSUER 1000 

140 Lx168 

150 GOSURH 1000 

160 NEXT I 

170 Gx0 

180 GOSUR LOOOUINE 1,244 INE 2, 612 INF 3,9 

190 FEN Li:LOCATE 1,16: INPUT MLIGNE, 
UT 

200 FRINT:INEUT MOCOLONNE A M"sT 

210 LOCATE 1,2O0:1IF R(T,I)=eD THEN FRINT " 
ERAVOIT,, ,," ELSE FRINT "FERDU!'. Ms WHIL. 
E TES200: SOUND 1,TE, 1: TERTE-+ 1: WEND 

220 FRINT:FARINT "LA LETTRE À TROUVER ETA 
IT "is CHRS (é4+D) : END 

1000 Uz Œ+2x INT CRNDXT) #8 Va 4tL +R X TNT CHNDXS 
) 


1080 IF Cirl AND S£:0 THEN 1000 

1080 IF Sxo THEN IF HC(V-20)/2, (U-1) /2)# 
D THEN 1000 

1040 IF Lé:0 THEN HC(CV-20)/2, (U-1) /2) #D 

1050 LOCATE V,U:FEN 2-(Lé5#0) 5 FRINT CHKS#( 
D+é;4) 

1060 RETURN 
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Plusieurs en un 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : deux joueurs. 

Difficulté du jeu : variable. selon Futilisation. 


LE JEU : 

Plusieurs jeux sont en réalité possibles avec ce programme qui va se 
COMPOrLEr COMME UN Crayon électronique vous permettant d'inscrire des 
svmboles de couleur. en n'importe quel emplacement de votre feuille- 
écran de télévision. On pourra. par exemple. l'utiliser pour un jeu de mor- 
pion le premier à réaliser un alignement de 5 pions identiques gagne) ou 
pour un GO on réalise des ene adrements des pions adverses) ou tout autre 
jeu. selon son imagination. 


LE PROGRAMME 

Le terrain de jeu est délimité par un cadre mis en place par la ligne 30. 
Le changement de joueur est effectué par la ligne 50. 

Le joueur qui a le trait voit le symbole qu'il a choist (carré de couleur; se 
placer en limite du cadre ligne 707. 

Les lignes 100 et 110 permettent aux deux joueurs de déplacer le symbole 
sur le terrain. 

Les lignes 130 et 140 contrôlent si le déplacement est possible {case libre 
et non dépassement des limites”. 

La ligne 180 permet d'écrire sur une case libre. 


POUR JOUER : 

RUN provoque l'affichage des limites du terrain et du numéro du joue ur. 
ainsi que des symboles correspondants que lon devra déplacer sur l'écran 
à l'aide des + touches de direction (=. |: TT). 

[n'est pas possible de venir sur une case déjà occupée et il faudra appuver 
sur la touche COPY pour inscrire son propre symbole dans une case dis- 
ponible. 

Dès que cela a été fait. le symbole du second joueur apparaît dans la 
colonne de gauche. à peu prè s au milieu. et le joueur procédera de la mênrie 
manière que son adversaire. 

Pour sorur du programme. il suffira de taper ESC deux fois. 


EXTENSIONS POSSIBLES : 

On pourra utiliser l'écran tout entier comme terrain de Jeu et réaliser des 
contrôles en fonction des différents jeux que l'on désire pratiquer : contrôle 
d'alignements de 5 pièces pour le morpion. contrôle du nombre de pièces 
capturées pour le GO. 


10 REM FLUSIEURS EN UN 

20 MODE 1 

50 MOVE 8,8:DRAUR O0,24x16,1:DRAWR 25%*16, 
O, 1: DRAWR O0,-24X%16, 1: DRAWR -25*%16,0,1 

40 J=0 

S0 JzAES(J-1) 

60 X=15:Yei 

70 LOCATE Y,X:PEN 2-CJ=1): PRINT CHRS& (251 
—ROXIJ) 

80 AS=INEEYS:IF Ag$z"" THEN 80 

90 AzX:B=Y 

100 X=X-—(AH=CHRS (SF1) AND X224) + CAS=CHRS 
(FO) AND X:2) 

110 YVeY-(ASECHRS (RFI) AND Y2295) + (AS=CHRS 
(&F2) AND Y:2) 

120 LOCATE B,A:FRINT " " 

120 CaTEST((Y-1)*x16+8, (25-X) xX16+8) 

140 IF C£52 AND C£%5 AND C1 THEN 160 
150 XsA:Y=E 

160 CA%INEÉEY (9) 

170 IF CAS:0Q OK Y=2 THEN 70 

180 LOCATE Y,X:PEN 2-(J=1):FRINT CHKS& (235 
126%) ) 

190 IF Jz=0 THEN SOUND 1,200,10 ELSE SOUN 
D 1,800,10 

200 GOTO 50 
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Parcours du cavalier 





REFERENCES : 
Difficulté de programmation : difficile. 
Catégorie de jeu : réflexion. 


Difficulté du jeu : difficile. 


L E JEU : 

I se présente, ici. comme un jeu de hasard total, mais provient. en réalité. 

d'un problème assez difficile à résoudre : comment déplacer un cavalier 
sur un échiquier de façon qu'il passe une fois. et une seule, sur chacune 
des 64 cases du damier. 

Le cavalier se déplace suivant les règles communément admises aux échecs. 

et sa position de dé part est définie par le joueur : par contre. ses déplace- 

ments sont effectués au hasard. Arrivera-t-1l à parcourir les 64 cases ? 


LE PROGRANMLME : 

La ligne 60 définit les divers déplacements possibles, dans deux variables 
alphanumériques A$ et B$ : la boucle emboîtée 1 (70-100) dessine le ter- 
rain de Jeu. 

On entre les coordonnées de la case de départ (ligne. puis colonne) aux 
lignes 110 et 120. 

La ligne 140 imprime le numéro du coup. 

La ligne 150 permet le tirage au hasard d'un déplacement du cavalier. 
La boucle G 160-210! cherche si le déplacement est possible : si ce n'est 
pas le cas. on essaie tous les autres {toujours dans le même ordre). 

Les lignes 170 et 180 effectuent le déplacement. 

La ligne 190 contrôle que lon ne sorte pas du terrain de jeu. 

La ligne 200 envoie en ligne 230 si le coup est possible. 

La ligne 220 gère la fin de partie {cavalier bloqué) et affiche le score. 

Les lignes 230. 240 et 250 réalisent le coup et incrémentent le score. 


POUR JOUER : 

On lance le programme par l'ordre RUN. Le terrain de jeu s'affiche : on 
choisit alors la position de départ en tapant d'abord un numéro de ligne 
(entre Let 8). suivi de ENTER puis son numéro de colonne, suivi de 
ENTER. Le jeu commence immédiatement et il se déroule de façon entiè- 
rement automatique jusqu'à ce que le cavalier soit bloqué. On peut. bien 
sûr. arrêter à tout moment en tapant ESC deux fois. 


EXTENSIONS POSSIBLES : 

On peut imaginer de nombreuses variantes sur ce thème. ne serait-ce qu'en 
commençant par faire varier la taille des échiquiers : on peut aussi amé- 
horer considérablement le graphisme. Mais. le plus intéressant est d’arri- 
ver à définir un algorithme donnant la ou les solutions du problème initial... 


10 REM FARCOURS DU CAVALIER 

20 RANDOMIZE (TIME) 

HO INE 0,93: HORDER 9 

40 CLS 

30 Sel: TæO 

60 Abe OO RRRE Ne pet SEEN NASA" SE!" As 
A+ 

70 FOR Ix1l TO 8 

80 LOCATE ŒXI+2,12FRINT I 

GO LOCATE L',ZXit+lIs PRINT Ti" à 

100 NEXT T 
110 LOCATE 1L,192:INFUT "LIGNE DE DEFART 
RS 

120 PRINT: INEUT M"OOLONNE DE DEFARKT:" 

150 IF 559 THEN S#O:TeT+1 

140 LOCATE ŒEXKJ +R, 2XI+1: PAPER Bu FEN Si FRT 
NT RIGHTS CSTRS(S),1)2 IF T£#O THEN LOCATE 
EXJ +R, BXI+HILIFRINT RIGHTS (STARS (CT), 1) 

150 Ze TNT CRNDXE-+ 1) 

160 FOR Gx2Z TO 2+8 

170 AzI+VAL (MIDS (AS, G, 1) )-4 

180 BxJ+VAL (MIDS (HS, 0, 1) )-—4 

190 IF Al OK ER£l OK A6 OK EH: THEN #1 
() 

O0 IF TEST CC CEXBHE) LD X Lot, Ce CHXATI 
))Xl16+6)=0 THEN 250 

210 NEXT G 

M2 FAFER LiPEN GsLOCATE 1,23 PRINT "TOT 
AL 2"3TX10+S:SOUND 1, 478: SOUND 1,426: SOU 
ND 1,#79:FAFER O2FEN 1: END 

230 IsA:JsE 

240 SeS+l: FRINT CHAKS (7): 

230 GOTO 120 
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Othello 





REFERENCES : 
Difficulté de programmation : difficile. 
Catégorie de jeu : réflexion (2 joueurs). 


Difficulté du jeu : difficile. 


LE JEU : 

Devenu un grand ce lassique des jeux sur micro-ordinateur. le jeu d'Othello 
ou Reversi gagne. même si comme er ilest pratiqué à deux | joueurs. à être 
géré sur ordinateur. avec visualisation : en effet, le | jeu consistant essen- 
tie lement en des retournements des pions de l'adversaire. ceci peut se 
révéler. à la longue. très fastidieux. surtout si vous êtes un joueur assidu. 

Le prine ipe est que le joueur possédant les À doit pour pouvoir Jouer. 

réussir à encadrer une ou plusie urs des pièces de son adversaire. dans une 
ou plusieurs directions : S'il + réussit. les O seront alors retournés pour 
devenir des X {le retournement pourra être fait horizontalement. vertica- 
lement ou suivant les diagonales) 

Le joueur avant les O procédera de la même façon. et ceci jusqu à ce que 
le damier soit rempli ou que la personne ne puisse el Jouer (si un Joueur 
ne peut retourner des pions. il doit passer son tour) 


LE PROGRAMME : 

Les boucles emboîtées P (50-120) et Q (70-110) dessinent le terrain de 
jeu et la ligne 140 affiche un X ou un O. selon le joueur qui commence. 
La boucle P 200-3207 contrôle la validité du coup (la case est-elle libre : 
lignes 300 60310). en utilisant une partie de programme qui se trouve aux 
lignes 300 à +20 (at-on pris un ou plusieurs ennemis en ligne 360 et 
retournement éventuel autorisé par la ligne 380 : on refait un balavage 
dans toutes les directions. si l'encadrement s'est révélé possible). 

La ligne 200 définit les 8 directions d'exploration. 

Les lignes 240 et 250 calculent les déplacements à effectuer pour explorer 
ces 8 directions. 

La ligne 230 réalise les déplacements. 

La ligne 340 assure le changement de joueur, s'il v a eu retournement 
(contrôlé en ligne 330). 


POUR JOUER : 

Après RUN. chaque joueur entrera à son tour les coordonnées (ligne. EN- 
TER. puis colonne. ENTER) de la case où 11 désire jouer : si le coup est 
accepté. les pions sont retournés et l’on change de joueur : si un coup n'est 
pas possible. on entre O en première coordonnée pour le changement de 
Joueur. 


EXTENSIONS POSSIBLES : 

Avant tout, bien sûr, améliorer l’affichage avec des couleurs. une grille 
plus aérée. 

On pourra aussi imaginer un jeu machine pour AMSTRAD. 

Après avoir lancé le programme par RUN, il convient d’entrer la dimen- 


sion de la grille (4, ENTER ou 6, 8 ...). 


10 REM OTHELLO 
15 WINDOW #1,25,40,8,18 

20 INFUT "DIMENSION DE LA GRILLE :"34 

30 IF A MOD 2 #:0 OR A8 OR A“2 THEN 20 

40 CLS 

50 FOR F=i TO À 

60 LOCATE 2XP+1,1:PRINT RIGHTS (STRS(F),1 
) 

70 FOR Q=1 TO A 

80 LOCATE 1,2XP+1: PRINT RIGHTS (STRS (F),1 
):LOCATE 2XO+1,2XF+1:FRINT CHR& (144) 

90 IF Q=A/2+1 AND F=A/2 THEN LOCATE 2xQ- 
1,2XP+L: PEN Z:PRINT CHRS(231);" "s:PEN 3 
: PRINT CHR$# (20%): FEN 1 

100 IF Q=A/2+1 AND F=A/2+1 THEN LOCATE 2 
KQ-—1,2XP+1: PEN Z:PRINT CHR$(203):" "32PE 
N S:PRINT CHRS$(231):PEN 1 

110 NEXT Q 

120 NEXT F 

130 K=i 

140 CLS #1:LOCATE #1,2,3:PEN #1,2-(KH=1): 
PRINT #1, "JOUEUR "35 CHRS$ (231-HX28) : SOUND 

1,200+200kK, 10 

160 PRINT #1: INPUT #1,"LIGNE :";U 

170 IF U=0 THEN 340 

180 PRINT #1:INFUT #1, "COLONNE: "34 

190 H=1 

200 FOR F=1 TO 8 

210 S=0 

220 W=O 

230 T=2kU+1: Re PXV+I 

240 F=(FP}3 AND Fé7)-(P£3 OR F>7) 

250 G=(F>1 AND F£5)-(F}=6) 

260 Q=-?205X(S=1)-231X(S=2)-144% (S=0) 
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270 IF SxO THEN 290 

280 LOCATE K,T: FEN 2-(CKHx1) : FRINT CHR# (0 
) 

290 TET+2XF I: RER+EXG 

500 CaTEST((R-1)Xx16+8, (25-T)Xx16+68) 

310 IF Cz2 OK C=5 THEN 3460 

320 NEXT F 

SEO IF HSïrO THEN 140 

340 EÆABS (H-1) 

330 GOTO 140 

360 IF (Cx2 AND Ezel) OK (C3 AND EkxOQ) TH 
EN W:zl 

370 IF S430 THEN LOCATE K,T:PFEN 2-(kx1) 
FRINT CHRS#&(Q) 

480 IF Wei AND ((Cz2 AND KH=1) OK (C=35 AN 
D H=0)) THEN 290 

490 IF WzO OK S£r0 THEN 520 

400 S=1-(KH=0) 

410 H=-HX (S=0) 

420 GOTO 220 


Dames 





REFERENCES : 
Difficulté de programmation : très difficile. 
Catégorie de ] Jeu : deux joueurs. 


Diffic ulté du jeu : difficile. 
LE JEU : 


C'est le jeu classique de dames à la française. mais un peu incomplet 
puisqu'il ne prévoit pas la possibilité de faire des dames. La règle du jeu 
reste classique. mais les contrôles ont été un peu simplifiés. Le *$ MOouve- 

ments des pièces sont entrés en une seule manœuvre position de départ 
et direction du déplacement) et les prises sont réalisées automatiquement. 
si elles sont possibles. 

Par contre le changement de joueur étant réalisé à c haque coup. il faudra 
éve ntue lement taper O pour pouvoir rejouer S'il + avait eu saut ou si le 
coup n'était pas possible. 


LE PROGRAMME : 

Les boucles 1 (80-170) et J (90-160) dessinent le damier et définissent les 
positions initiales des pions noirs et des pions blancs. Les positions sont 
dans une table R {X. Y) et la couleur dans une autre table C (X. Y) 
L'impression des pions proprement dite est effectuée par les boucles em- 
boîtées J (190-250) et I (200-240). 

La ligne 270 indique le joueur qui a le trait. 

Le coup est entré en ligne 270. 

La ligne 280 réalise le changement de joueur (on tape 0). 

La ligne 300 regarde si le déplac ement est possible. 

La ligne 330 traite le cas d’un déplacement et la ligne 340 celui d'un saut. 
La ligne 380 assure le changement de joueur. 


POUR JOUER : 

Des le lancement du programme par RUN. le damier est affiché avec ses 
pions, et un cercle de couleur apparaît en dessous pour indiquer que le 
trait appartient au Joueur correspondant. 

On joue en indiquant par un mot de 3 lettres (pouvant commencer par un 
O0) la ligne et la colonne de la pièce à dé plac er. puis la direction du dépla- 
cement (codée de 1 à +) suivant la convention : 


+ l 


3 2 


Par exemple 9D1 signifie que le pion situé en ligne 9. colonne D. se déplace 
dans la direction 1. 
De même 0G3 signifiera pièce noire. ligne 0. colonne G. direction 3. 
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Le changement de joueur étant effectué automatiquement il faudra taper 
0 pour rejouer si le coup est refusé ou s’il y a eu prise. Le programme ne 
contrôle pas l’arrivée à dame. et n'interdit pas les déplacements en arrière. 


EXTENSIONS POSSIBLES : 

Il sera assez facile de commencer par améliorer les contrôles (changement 
de joueur. coup en arrière qui ne correspondrait pas à une prise, sortie de 
terrain). On pourra envisager la création de dames, leur déplacement, et 
éventuellement écrire un programme permettant à votre AMSTRAD de se 
mêler avec de bonnes chances de réussite à vos passionnantes parties. 


10 REM DAMES 

20 DIM KR(10,10):DIM C(10,10):SYMBQOL AFTE 
KR 240:SYMEOL 240,0,0,0,0,0,0,0,0:SYMBOL 
241,0,60,195,195,189,129,66, 60 

F0 AS=STRINGS (3, 140) 

40 R$S=STRINGS (5, 145) 

30 CHESTRINGS (3,151) 

60 CLS 

70 FRINT " A HC DE F G H I 
J" 

80 FOR I=1i TO 10 

90 FOR J=1i TO 10 

100 IF (I+J) MOD 2=0 THEN 120 

110 LOCATE SXJ+1,2XI:FRINT AS:FRINT I-1: 
LOCATE ZXJ+1,2XKI+1:FRINT EBh:LOCATE ZXJ+1 
S 2XIT2:FRINT C$ 

120 KR(l,J)=0 

130 IF (I+J) MOD 2x1 THEN 160 

140 IF JS THEN R(I,J)=1:C(I,J)=2 

150 IF Jèé THEN R(I,J)=1:C(I,J)=S 

160 NEXT J 

170 NEXT I 

180 H=l 

190 FOR J=1i TO 10 

200 FOR I=i TO 10 

210 IF (I+J) MOD 2 «50 THEN 240 

220 X=FIXJ+2:Y=2XxI+i 

230 LOCATE X,Y:PEN C{(I,J):FRINT CHR$(240 
+R(I,J)) 

240 NEXT I 


250 NEXT J 
260 LOCATE 1,23%:FPRINT CHRé# (20): 

270 LOCATE 1,23%:FEN 2-(H=1):PRINT "JOUEU 
R "3; CHRS (241) 5: INPUT " — VOTRE COUF :"3D 
$ 

280 IF D$="O" THEN H=ABS (H-1):GOTO 260 
290 GOSUB 400 

300 IF R(L,C)=0 OR (C(L,C)=2 AND H=1) OR 
(C(L,C)=3 AND H=0) THEN 260 


310 Tæ=(1 AND (D=i OR D=2)) — (1 AND (D=4 
OR D=35)) 

320 S=(1 AND (D=3 OR D=2)) - (1 AND (D=i 
OR D=4)) 


330 IF R(L+S,C+T)=0 THEN KR(L,C)=O0:R(L+S, 
C+T)=1l:C(L+S,C+T)=2-(H=1) : GOTO 2:80 

340 IF C(L+S,C+T)=2-(H=0) AND R(L+S,C+T) 
= AND KR(L+2XS,C+2XT)=0 THEN 560 

350 GOTO 260 

360 R(L,C)=O0:R(L+S, C+T)=O0:R(L+ZXS, C+SXT) 
sl: C(L+ZXS, C+2XT)=2-(H=1) 

370 GOTQO 190 

380 H=ABS (H-1) 

390 GOTO 190 

400 LeVAL(LEFTS(D$,1))+1:C=ASC(MIDS (D$,2 
:1))-64: DE VAL (RIGHTS (D$, 1) ) 

410 RETURN 
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Quatre à quatre 





REFERENCES : 
Difficulté de programmation : difficile. 
Catégorie de jeu : réflexion [un ou deux joueurs). 


Difficulté du jeu : difficile. 


LE JEU : 
Il pourra etre pratiqué à un ou plusie urs joueurs. Dans les . ux cas. le but 
est d'arriver à échanger les pions X avec les pions O: si l'on joue en 


solitaire. cet échange devra être réalisé avec le moins de on possible. 
Les pions sont dé placé és alte ‘native ment en respectant les règles de dépla- 
cement du cavalier aux échecs 1 n°v a pas de prise. et on ne peut passer 
son tour. 


LE PROGRAMME : 

La variable alphanumérique A$. en ligne 40. contient la table des coups 
possibles {déplacement du cavalier) 

La boucle 160-100 dessine le terrain de jeu. et les positions de départ. 
La ligne 120 permet d'afficher O ou X. selon le joueur qui a le trait. 

La ligne 150 permet l'affichage du curseur clignotant qui indique sur 
quelle case on se trouve. 

Les lignes 180 et 190 permettent le déplacement du curseur. 

La ligne 200 regarde si lon a appuyé sur une touche de T à 8. donnant la 
direction du déplacement. 

La ligne 210 réimprime la figure qui était sous le curseur. La ligne 240 
transforme en nombre le symbole chiffre frappé. La ligne 230 réalise le 
contrôle de départ. 

Les liynes 250 et 200 effectuent le déplacement. La ligne 290 réalise le 
contrôle d'arrivée, Le résultat estimprimé par la ligne 300, le changement 
de Joueur est réalisé par la igne 310 etun 7. estimprimé à l'emplacement 
de départ. Le sous-programme 330-340 estutilisé pour les divers contrôles. 


POUR JOUER : 

On lance le programme par RUX. Le terrain de jeu est affiché, ainsi que 
le symbole permettant d'identifier le joueur qui a le trait. Le joueur peut 
choisir le pion qu'il désire déplacer en manœuvrant le curseur clignotant 
grâce aux touches de déplacement du curseur. 

Pour déplacer son pion. il suffit. lorsque le curseur est sur ce pion. de taper 
la direction du déplacement. suivant le code : 





Le coup sera refusé si la case de départ n’est pas conforme ou si la case 
d'arrivée est occupée. Sinon, le coup est réalisé. et le trait passe à l'autre 
joueur. qui déplace le curseur clignotant pour l’amener sur l'un des pions. 
et joue de la même façon. 

Le joueur gagnant est celui qui réussit à amener le premier tous ses pions 
dans les cases initialement occupées par l'adversaire. On peut interrompre 
la partie à tout moment en tapant ESC deux fois. 


EXTENSIONS POSSIBLES : 

On peut améliorer les contrôles, prévoir un test de fin. utiliser un terrain 
de Jeu différent : on pourra aussi envisager l'écriture d'un programme 
permettant à votre AMSTRAD de participer au jeu avec de bonnes chances 
de l'emporter. 


10 REM QUATRE À QUATKRE 

20 INE 0,15: BRORDER 15 

30 MODE © 

40 Hal: AS="S66S322756" 

50 LOCATE S,ZsFPRINT "i 2 3 4 5" 

60 FOR Isi TO 5 

70 LOCATE 1,S3XI+S:FRINT RIGHTS (STRS$(I),1 
):LOCATE S,3XI+23: PRINT CHR$(144)+" "+CHR 
$(144)+" !+CHKS (144)+" M+CHRS (144) +" MAC 
HKS# (144) 

SO IF I<3 THEN FEN 2:LOCATE S,3XxI+3:FRIN 
T CHRKS (2351)5" ME CHRS (ZI): PEN 1 

90 IF I:3 THEN FEN SGiLOCATE 11,3XI+3:PRI 
NT CHRS$ (207) 5;" "CHR (203): FEN 1 

100 NEXT I 

110 X=1:Y=l 

120 LOCATE S,Z22:PFEN 2+H:PRINT "IJQUEUR ‘ 
sCHRKE (Z351-28%H) 

170 GOSUB 3550 

140 I=J 

150 LOCATE S+2XX,S+IXYSFRINT " " 

160 AzX:EB=Y 

170 R$=INKEYS 

180 X=X-(RS=CHRS (SFT) AND X25) + (R$S=CHRS ( 
F2) AND X+1) 

190 Y=Y-(RS=CHRS (SF1) AND Y<S) +(R$S=CHRS ( 
FO) AND Y:1) 

200 IF KR#$<"9" AND K#$:"O0" THEN 250 
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210 LOCATE ZS+2XxA,S+SXE: PEN J:IF J=1l THEN 
PRINT CHR$(144) ELSE PRINT CHR$(231-28% 
(J—2)) 

220 GOTO 120 

230 IF (I=1) OR (I=2 AND H=1i) OR (I=S AN 
D H=0) THEN GOTO 210 

240 KHE=VAL (RS) 

2930 S=Y:VeY+VAL(MIDS (AS,H, 1) ) —-4 

260 TX: X=X+VAL(MID#S(AS,K+2, 1) ) —-4 

270 IF X<1 OR X:5 OR Y<1 OR Y:5 THEN YVES 
:X=T: A=T:B=G: GOTO E10 

280 GOSUB 23350 

290 IF J<ri THEN X=-1:9J=2+H: GOTO 270 

300 LOCATE 3+2XX,Z3XY+3:PEN (2+H):FRINT C 
HR$ (231-268%XH) 

310 H=ABS(H-1):1=1 

320 GOTO 210 

330 JE=TEST ((Z+2XX-1) xX32+16, (25-— CSFIXY)) 
X16+8) 

340 RETURN 


Echecs 





REFERENCES : 
Difficulté de programmation : difficile. 
Catégorie de Jeu : jeu de réflexion. pour deux joueurs. 


Difficulté du jeu : difficile. 
LE JEU : 


Le programme propose seulement à deux joueurs de disputer une partie 
en se servant de l'écran du téléviseur comme plateau de jeu. IPn°v a pas 
de contrôle de la validité des coups. mais seulement gestion de la position 
des pièces sur l'échiquier. Les pions etles pièces sont dessinés à Faide de 
l'instruction SYMBOL. La couleur permet de distinguer chaque camp. 


LE PROGRAMME : 

Les lignes 110 à 200 dessinent Féchiquier. Les lignes 150. 160. 170. 180. 
210 et 220 définissent les conditions initiales. à laide de deux tableaux : 
RL J) pour les codes des pie s. et C (LT) pour la couleur. 

Les ans les emboîtées L (250-280) et J (240-290) dessinent les pièces 

La ligne 320 permet le ntrée de la ligne et de la colonne de départ. avec 
contrôle en ligne 330. 

La ligne 360 permet d'entrer colonne et ligne d'arrivée. 

La ligne 380 note la nouvelle position. 

La ligne 390 assure le changement de joueur. 


POUR JOUER : 

On lance l'exécution par RUN. 

L'échiquie rest dessiné, puis les pièces. etenfin un texte de couleur indique 
le joueur qui a le trait : on entre la colonne et la ligne de départ. sous la 
forme E 7 par exemple. on donne la colonne et la ligne d'arrivée. Le 
déplacement est alors effectué. et e'est au tour de Fautre Joueur. 

Pour arrêter. il suffit de taper ESC deux fois. 


EXTENSIONS POSSIBLES : 

On pourra chercher à réaliser un graphisme plus précis. introduire le 
contrôle du mouvement des pièces. Et pourquoi pas. écrire un programme 
qui permette à votre AMSTRAD de se comporter en partenaire honorable. 
Bon courage ! 
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10 REM ECHECS 

20 DIM K(S,8):DIM C(8,8):SYMBOL AFTER 24 
O * 

2Q SYVMBOL 240,0, 16,40,68, 1069, 6, 124, 02:SY 
MEOL 241,0,16, 56, 16,56, 68, 56, 0 

40 SYMEOL 242,0,894,124, 56, 56, 124,184,015 
YMEOL 247,0,84,40,16, 108, 124, 124,0 

50 SYMBOL 244,0,0,16, 56,56, 16, 124,0:SVME 
OL 245,0,16,56, 120,24, 56, 124,0:SYMEOL &4 
be 010,05 0:0,0, 040 

GO ABESTEINGS CE, 140) 

70 RBÆSTRINGS CE, 145) 

50 CHheSTRINGS CE, 1251) 

90 CLS:INE 1,9:INE 3,0 

100 PRINT "A B C D E F G 4H" 
Lio FOR Læl TO 8 

120 FOK Jæl TO 8 

LAQ LE  Clæ+dJ) MOD 2x0 THEN 150 

140 LOCATE XI 2XI: PRINT AB: FRINT CHARS (4 
BL): LOCATE XI, XI: PRINT Eée:LOCATE 
KI PKR: PRINT CS 

150 IF Ie? OR Le7 THEN RCI, dJ)æ4 

160 IF 132 AND 1457 THEN RCI, 0) 6 






190 IF Lwx7 OK Ie THEN CCI, Jos 
190 NEXT J 
O0 NEXT TI 





240 FOR Jel TO 6 
260 FOR Isi TO 6 

260 Xe LH: VeBk + 

270 LOCATE X,VY2FEN CCI, J):FPAFER (I+J) MO 
D OS: PRINT CHARS C2404R CI, D) 

280 NEXT I 

390 NEXT J 

300 WINDOW #1,28,40,9,18 

310 CLS Hi:FPEN #1, +: PRINT #1," JOUEUR 
“sslF HeO THEN FRINT #1, "BLEU" ELSE FRIN 
T #1,"NOIR" 


He0 FRINT #1, !"DEFART CC, L)"2LOCATE 41,7 
Ses INEUT #1,"",D$ 
430 GOSUE 410 





360 LOCATE #1,1,7s: PRINT #1, "ARRIVEE (CC, L. 
)''aLOCATE #1,7, 83 INPUT #1, "",D# 

m/7Q GOSUR 410 

2600 KL, C)eTE OC CL, CS 

290 HAS (He 1) 

400 GOTO #40 

410 LeæVAL (RIGHTS (DS, L)) 1 CmASCLEFTS (DS, 1 
))—64 

420 RETURN 
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Mur de briques 





REFERENCES : 
Difficulté de programmation : difficile. 
Catégorie de jeu : réflexe ‘pour 1 joueur). 


Difficulté du jeu : difficile. 
Fe E JEU : 


S'ilest un Jeu que l'on peut présenter comme un grand ce lassique des Jeux 
d arcades pour micro- ordinateur. c'est bien le mur de briques (en anglais 
BREAKOUT). 

I est offert. ici. dans une version simplifiée, mais offre néanmoins de 
bonnes performances : affichage du score en fin de partie, rebonds aléa- 
toires. etc. 

La règle en est très élémentaire : vous disposez d'une raquette qui peut 
être déplacée horizontalement pour renvoyer une balle qui va démolir les 
briques dessinées en haut de l'écran. 

Votre problème est d'en démolir le plus grand nombre possible, sans rater 
la balle. ce qui provoquerait la fin de partie et l'affichage du score. 


LE PROGRAMME : 

La boucle (50-80) dessine le terrain de jeu et les briques sont mises en 
place par les boucles emboïtées (90-130) et J (100-120). 

La ligne 200 dessine la raquette dont la position est contrôlée par la ligne 
180. 

Les lignes 250 à 270 regardent si lon a touché le mur. les briques ou la 
raquette. 

Les rebonds sont gérés en conséquence avec des éventuels aléas. par les 
lignes 250 et 270, 

La ligne 210 affiche le score en permanence. 

POUR JOUER : 

Le programme sera lancé par Pinstruetion RUN. ce qui provoque l'affi- 
chage du terrain de jeu puis. très rapidement. l'envoi de la balle. Le joueur 
devra alors essaver de déplacer sa raquette à l’aide des touches de dépla- 
cement horizontal (> et —). 

Si. à un moment quelconque. sa balle ne touche pas la raquette. le Jeu se 
termine. 

On peut aussi terminer à tout moment par ESC deux fois. 


EXTENSIONS POSSIBLES : 

On peut envisager d'agrandir le terrain de jeu, d'augmenter le nombre de 
briques. de prévoir plusie urs balles, d'introduire des effets sonores 

On peut aussi. en s'inspirant des jeux d’arcades. introduire de petits ou- 
vriers qui viendront reconstruire votre mur de briques. au fur et à mesure 
que vous le démolissez. 


10 EM MUR DE BRIQUES 

20 DEF FN INCX)#16XROQUND (X/16) 
30 KANDOMIZE (TIME) 

40 CLSiFEN LiA$ 
0 FOR Iæl TO 18 

60 LOCATE LOT, Les PRINT AS 

70 LOCATE 11, Itis FAINT Ai LOCATE 26, Tdi 
FFCINT A 

80 NEXT I 

PQ FOR Iæl TO 6 

100 FOR Jxl1 TO 6 

110 LOCATE Ji, Tel PEN + CT) MOD Ex FAT 
NT ES 

120 NEXT J 

140 NEXT T 

L409 TAG 

190 ORIGIN LIX16,7XlLé-l: TO: JenXlLésExTL EE 








FH) AND VELUX LÉ)+1é 
X CABCMIRS CRE) AND Vé4Xx 16) 
190 IF Twæl THEN MOVE TJ, ITS FARINT "OMG Te 





200 MOVE YVirlés PRINT M O'CESTEINGS CE, LA) + 


Ho Hu 
H 


210 LOCATE 4H, Lacs PRINT HA, Es "ss 
BENIN CA) 2 TEEN TN CE) à 

LIEN IN CTI) TJ&EN IN CT) 

HO IF TISO THEN TE&O:UWAILE TEE 200%: SOUND 
LATE, La TEE # WEND # E 

240 Cr ; s 

SO IF Cell THEN HäkteeKHX CTAEL6XLEé OF TA 

LOS ERA TXEX CITE ILSXLE OM TRE O0) 2 GOUND 1,4 

AU, ANT RNDEO,S THEN #80 ELGE GQTQ 170 

260 IF Ceo THEN MOVE TR, TA: FRINT CHR CS 

:GOTO 170 

270 IF Gen OK Ce THEN MOVE TE, TA: FERINT 

CHERS CE) 4 ee fi EX CLR CRNDE QG) 8 Tdi 

GC: SOUND 1, 200,6 

200 EeSGN CE) X CLétLOX CRNDEO, ) ) 

290 GOTO 17€ 
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Le lézard d’Alice 





REFERENCES : 

Difficulté de programmation : difficile. 
Catégorie de jeu : solitaire. 

Difficulté du jeu : assez difficile. 


LE JEU : 

[I S'inspire très vaguement d'une idée de LEWIS CARROLL. dans Alice 
au Pays des Merveilles. Dans l'histoire originale, Alice grandissait ou di- 
minuait. alors que dans le jeu. pour des raisons d’encombrement de la 
mémoire, c'est un lézard qui change de taille. 

Deux verres apparaissent sur l'écran : lun contient le liquide qui fait gran- 
dir. l'autre le liquide qui fait rapetisser (malheureusement ce n’est pas 
toujours le même verre). Le joueur devra indiquer la quantité de liquide 
qu'il désire boire et le lézard changera de taille en fonction de cette quan- 
uté. Le but du jeu est de parvenir à lui rendre sa taille initiale. 


LE PROGRANMLME : 

La boucle L (50-80) dessine les verres. 

Le sous-programime 430 est appelé si la réponse à la question QUANTITÉ 

n'est pas assez rapide, La ligne 220 annule cet appel. 

La boucle F1230-250 les remplit avec la quantité indiquée en ligne 210. 

La variation de taille du lézard est définie par la ligne 290, avec contrôle 

par les lignes 300-310. 

La boucle 320-340) dessine le corps du lézard. les lignes 350 et 360 

dessinent les pattes. la ligne 370 la tête : les deux boucles séparées 1 (380 
13901 forment le bec et les dents. 

Un message gagnant sera affiché par la ligne 410 si l'on a trouvé la bonne 
taille. 


POUR JOUER : 
On lance le programme par RUN : les deux verres se dessinent, puis ap- 
parait la question QUEL COTE à laquelle on répond en tapant G ou D : 


(de O à 200) et on frappe ENTER. 

Le verre désigné se remplit sous vos veux, puis, après quelques instants, 
le lézard est affiché. On devra alors fr: apper une touche quelconque : si le 
lézard n'avait pas la bonne taille. aucun message n’est affiché et l'on re- 
vient au dessin des verres. 


EXTE NSIONS POSSIBLES 

Puisqu' il s'agit d'un jeu cbr graphique, 1l sera intéressant 
d'améliorer les dessins et la couleur. de modifier le caractère aléatoire du 
C hoix des verres. etc. 

Pourquoi ne pas relire Alice au Pays des Merveilles, les idées n°v manquent 
pas. 


19 REM LE LEZARD D'ALICE 

20 RANDOMIZE (TIME) 

320 MODE ONE 

40 FAFER 5 

30 FOR Iz=1l TO 9 

60 LOCATE 1,I+4:FRINT " "iLOCATE 8,1+4:F 
RINT " " 

70 LOCATE LE, L+4s PRINT " Ms LOCATE 20, 1-+4 
SPRINT "M" " 
80 NEXT I 

90 FOR Ixi TO SiLOCATE TI, ILA4:FRINT M MINE 
XT I e 

100 FOR Lel5 TO 2ZO:LOCATE I, IA FRINT " " 
:NEXT I 

110 FAFER O2FEN SiLOCATE &,19:FRINT "GAU 

CHE: FEN G:LOCATE 14,15:FARINT "DROIT" 
120 FEN LsLOCATE 1,17:FRINT MQUEL COTE 
130 ASSINÉEVS: AGaUPPERS (CAS): TF AS< "D" A 
ND Ati: "G" THEN 170 

140 Ur Cl Lx CAB "DID D) XKET I Ce EX CA$z "D ") 
150 FEN CiLOCATE 12,1751F A$&"D" THEN FR 
INT "DROIT" ELSE FRINT "GAUCHE" 

160 FEN LiFRINT:FRINT MOUANTITE 2 "us FEN 
CiFeos Rat 

170 AFTER 100,0 GOSUR 430 

180 ABSSINÉEVS: IF Feel THEN GOTO 260 

190 IF Age"! THEN GOTO 180 

200 IF ABESCHRS (LE) THEN RES +AS 2 F'ERCINT 

A$::GOTO 180 

210 CGeARS (VAL (RS) ) 

220 ZeREMAIN(O) 

ar FOR Ix1 TO SXSOK(C) 

240 MOVE U, 12X16+I:DRAUR 6x2, 0,0 

250 NEXT TI: SOUND 1,478:SOUND 1, 426: SOUND 
1.79 

260 TESOIWMILE TES 600: TERTE#+ 12 WEND 

270 CLS 

280 Hel+ZXx (RNDEO, 5) 

290 ENS EN RER 

200 IF N£S12 THEN Nr 

310 IF or THEN N=60 

220 FOR Ii TO LOXN 
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350 MOVE I+352,195:DRAUR OQ0,10,1% 

340 NEXT I 

350 TAG:MOVE 32, 192: FRINT CHKS (155) à 

260 MOVER 1OXN-64,0:FRINT CHARS (1523) : 

#70 MOVE 2,220: PFRINT CHRS (224) x: TAGOFF 
260 FOR I=O TO 1:MQVE O,21242XI: DRAUR Ge 
YI!INEXT I 

390 FOR Iz1i TO 4:MOVE 7XxI1,211: DRAWR 0,2 
#NEXT I 

400 ASzINEEYS:IF A$z"" THEN 400 

410 IF Ne28 THEN LOCATE 68,23: FARINT "EHRAV 
O'!''"':SOUND 1,478: SOUND 1,279:SOUND 1,19: 
END 

420 CLS:GOTO 40 

45Q LOCATE 2,23:FEN 2:FRINT "TKOF LONG, 
JE JOUE" 

440 QzINT C(RNDXF00+10) Fa 

450 RETURN 
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Conseils de lecture 





Pour approfondir vos connaissances en BASIC. et mieux connaître le svs- 
tème des CPC 464, 664 et 6128, ainsi que du PCW 8256. P.S.IL. vous 
propose une palette d'ouvrages utiles. 


POUR JOUER AVEC OÙ CONTRE VOTRE AMSTRAD 





Super-jeux Amstrad, par Jean-François Sehan (Editions du PSE) : 
50 programmes BASIC sont ici abondamment commentés ettotalement 
ouverts à toute modification et adaptation. Le niveau de programma- 
ton est supérieur à celui du “102 programmes” 


Amstrad en famille, par Jean-François Sehan (Editions du PS.) : 
Pour gérer votre compte en banque. votre portefeuille boursier ou votre 
congélateur. pour apprendre ou jouer en famille avec votre micro. cet 
ouvrage vous propose des programmes BASIC faciles à rentrer et adap- 
tables à volonté. 


POUR MAITRISER LE BASIC AMSTRAD 








Découverte de l'Amstrad, par Daniel-Jean David Editions du PSE: 
Une découverte exhaustive et claire des CPC +64. 664 et 6128. un 


apprentissage progressif du BASIC Amstrad pour débutants complets. 


BASIC Amstrad — 1. Méthodes pratiques, par Jacques Boisgontier et 
Bruno Césard (Editions du P.S.L) : 

Pour ceux qui connaissent déjà un BASIC. voici un bon ouvrage de 
perfectionnement à la programmation en BASIC sur Amstrad 464, 604 
et 0128. 


BASIC Amstrad — 2. Programmes et fichiers, par Jacques Boisgon- 
tier (Editions du P.S.L) : 

Pour programmer le BASIC AMSTRAD. cet ouvrage donne de nom- 
breux programmes de gestion. d'éducation et de jeux où le rôle des 
fichiers est expliqué et largement commenté. 


BASIC plus, 80 routines sur Amstrad, par Michel Martin (Editions 
du P.S.L.) : 

Pour pousser votre Amstrad au maximum de ses capacités : 80 routines 
de simulation d'instructions qui n'existent pas en BASIC Amstrad. 


Périphériques et gestion de fichiers sur Amstrad, par Daniel-Jean 
David (Editions du P.S.L) : 

Cet ouvrage s'adresse aux lecteurs. déjà initiés à Amstrad. souhaitant 
programmer en BASIC Amstrad des applications utilisant des fichiers 
sur disquette ou cassette, et programmer tous les périphériques des CPC 


9 
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POUR MIEUX CONNAITRE LE SYSTEME DES CPC 
ET DU PCW 8256 








Clefs pour Amstrad — 1. Système de base, par Daniel Martin (Edi- 
tions du PSE 

Mémento présentant synthétiquement le jeu d'instructions du Z80. les 
points d'entrée des routines système. les connecteurs et brochages. ete. 
Le livre de chevet du programmeur sur Amstrad. 


Clefs pour Amstrad — 2. Système disque, par Daniel Martin et Phi- 
hippe Jadoul Editions du PSE 

Ce deuxième tome consacré au SY stème disque prése nte les points d'en- 
trée des routines disque. les blocs de contrôle. la programmation et les 
brochages des cireuits spécialisés. La deuxième partie du livre est aussi 
destinée aux possesseurs d'Amstrad 8256. 


CP/M plus sur Amstrad, par Yvon Dargery (Editions du PS.) : 
Toutes les commandes CP/M et CP/M plus pour maîtriser le système 
des 6128 et 8256 : un ouvrage de référence illustré par de nombreux 
programmes. 


Le livre de FAmstrad, tome 1, par Daniel Martin et Philippe Jadoul 
(BCM - diffusé par PSE 

Ce livre destiné aux programmeurs des CPC 464 et 664. donne une 
étude complète de tous les cireuits internes et analyse la structure in- 
terne du BASIC. Vous y trouverez. en outre. une étude complète des 
RSA. et des programmes de scrolling. de traçage de rectangles. de co- 
loriage de surface et de manipulation vectorielle. 


À VOTRE SERVICE 


DISQUETTE D'ACCOMPAGNEMENT 


Certains ouvrages font l'objet d'une disquette d'accompagnement reprenant les programmes contenus dans le livre 
ou les applications associés. Pour les obtenir, reportez-vous à la page ‘disquette d'accompagnement" insérée au 
début de chaque ouvrage possédant une disquette. 


EN COMPOSANT LE 3615 CODE OI * LIV 
NOTRE SERVICE MINITEL VOUS PROPOSE 
- de vous renseigner sur notre catalogue et toutes nos nouveautés 


- de vous indiquer le plus proche point de vente 
- de répondre à vos questions techniques concernant nos ouvrages grâce à la messagerie P.S.I. 


CATALOGUES ET "LIVRES MICRO" 





Vous pouvez recevoir chez-vous les catalogues complets de nos ouvrages et être abonné gratuitement à la 
revue ‘Livres Micro". Pour ce faire, envoyez le coupon ci-dessous à : 
Editions P.S.I 6-10 boulevard Jourdan - 75014 PARIS 


RE —— 


VOTRE AVIS NOUS INTERESSE 


Je désire recevoir gratuitement : [vos catalogues [ la revue “Livres Micro” 
Pour nous permettre de faire de meilleurs livres, adressez-nous vos critiques et vos suggestions sur le présent 
ouvrage. 
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- Ce livre vous donne t-il toute satisfaction ? 





- Yat-il un aspect du problème que vous auriez aimé voir aborder ? 
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Ces 102 programmes de jeu vous guideront progressivement 
dans l'exploration du BASIC Amstrad. 

Niveau par niveau, vous assimilerez de nouvelles instructions 
pour arriver à la maîtrise de votre CPC 464. 

Tous les programmes contenus dans ce livre fonctionnent 
également sur CPC 664 et 6128. 
D Chaque niveau commence par une présentation pédagogique 
À | du jeu d'instructions utilisé. 
Tous les jeux sont décrits et les programmes sont analysés 
ligne par ligne afin d'en faciliter la modification. 

Devenez vite le chef d'orchestre de votre Amstrad! 
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